VBA vytvoření zástupce

Dobrý den,

mám tento skript, který má vytvořit zástupce na ploše. Má spustit konkrétní soubor v MS Excel. Problém je v tom, že soubor je umístěn na OneDrive a musí jej spustit desktopová aplikace. Webový MS Excel nepodporuje makra.

At dělám, co dělám, tak tam nemůžu nějak dostat tu cestu. Cesta musí být ve vytvořeném zástupci zapsána přesně tak, jak je zapsána v proměnné "Cesta", včetně uvozovek a mezer. Pokud tam dám první část, uspěji, ale spustí se jen excel a ne soubor, opačně s tou druhou, kdy se otevře soubor, ale v internetovém prohlížeči.

Není mi třeba říkat, že tam chybí nějaké úvozovky. To vím. Cesta je úmyslně zapsána přesně tak, jak má být ve výsledném zástupci a ne tak, jak je ji třeba zapsat do VBA. S těmi uvozovkami jsem zkoušel vše možné a myslím, že jsem je zapsal i správně, např. pomocí chr(34) či zapsání několika uvozovek za sebe a stejně to stále hlásí chybu.
Možná to prostě ani přes VBA nejde, protože s otevíráním souboru z webu nepočítá?

Předem díky a pěkný den

M. Hodek

Dim Adresa As String
Adresa = "D:\tabulka.lnk"
Cesta = "C:\Program Files\Microsoft Officeoot\Office16\EXCEL.EXE" https:\
ejakaNesmyslnaCestaJenZmetZnaku
Dim WShell As Object
Set WShell = CreateObject("WScript.shell")
Dim Zastupce As Object
Set Zastupce = WShell.createshortcut(Adresa)
With Zastupce
.targetpath = Cesta
.Save
End With

End Sub