probably a lot easier than I imagine this one!
i'd like to progrmmatically create a shortcut to a file in my XLstart file.

anybody any ideas?

You can use the WScript shell object. The sub below will find the XLstart
folder and place a shortcut called StartABC that targets the workbook
C:\test\abc.xls.

Sub xlstartLINK()
Dim wsh As Object
Dim lnk As Variant
Dim strXLstart As String
strXLstart = Application.StartupPath
Set wsh = CreateObject("WScript.Shell")
Set lnk = wsh.CreateShortcut(strXLstart & "\StartABC.lnk")
lnk.TargetPath = "C:\test\abc.xls"
lnk.Save
End Sub

Steve


"jason" wrote in message
om...
probably a lot easier than I imagine this one!
i'd like to progrmmatically create a shortcut to a file in my XLstart
file.

anybody any ideas?

Cheers Steve

"Steve Yandl" wrote in message ...
You can use the WScript shell object. The sub below will find the XLstart
folder and place a shortcut called StartABC that targets the workbook
C:\test\abc.xls.

Sub xlstartLINK()
Dim wsh As Object
Dim lnk As Variant
Dim strXLstart As String
strXLstart = Application.StartupPath
Set wsh = CreateObject("WScript.Shell")
Set lnk = wsh.CreateShortcut(strXLstart & "\StartABC.lnk")
lnk.TargetPath = "C:\test\abc.xls"
lnk.Save
End Sub

Steve


"jason" wrote in message
om...
probably a lot easier than I imagine this one!
i'd like to progrmmatically create a shortcut to a file in my XLstart
file.

anybody any ideas?