How to Create Shortcut from macro 1

[Fr33dan]

Does anyone know of a method to create shortcuts from a macro? I've searched google to no avail.

 

[PHV]

Have a look here:

http://msdn2.microsoft.com/en-us/library/xsy6k3ys.aspx

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[Fr33dan]

Thx PHV, I've built a sub from what the FAQ but I get a object required error on the the red line:

Sub shortcut()
[COLOR=red]    Set oWshShell = WScript.CreateObject("WScript.Shell")[/color]
    Set oShortcut = oWshShell.CreateShortcut("C:\proto.ink")
    oShortcut.targetPath = "J:\Joseph\ConvertNominalData.xls"
    oShortcut.Save
End Sub

I should have noted in my original post that I'm running Excel 97

 

[PHV]

Set oWshShell = CreateObject("WScript.Shell")

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[Fr33dan]

Ok that was a stupid error on my part. Thanks for the help