VBA, не работает скрипт

[Domain]

Set oWS = WScript.CreateObject("WScript.Shell ")
sLinkFile = "C:\MyShortcut.LNK"
Set oLink = oWS.CreateShortcut(sLinkFile)

oLink.TargetPath = "C:\Program Files\MyApp\MyProgram.EXE"
' oLink.Arguments = ""
' oLink.Description = "MyProgram"
' oLink.HotKey = "ALT+CTRL+F"
' oLink.IconLocation = "C:\Program Files\MyApp\MyProgram.EXE, 2"
' oLink.WindowStyle = "1"
' oLink.WorkingDirectory = "C:\Program Files\MyApp"
oLink.Save

Выдает ошибку "требуется объект".
Подскажите как его добавить или в чем проблемма.

Заранее спасибо.

[EducatedFool]

Первую строку напишите так: Set oWS = CreateObject("WScript.Shell")

Объект WScript нужен, если код выполняется из скрипта VBS
А вы, как я понял, пытаетесь запустить этот код как макрос (из VBA)

[Domain]

Работает, спасибо большое.
Можете еще подсказать как передать значение ячейки параметру этого скрипта.
Если не сложно)