Quote Originally Posted by Norman Jones
Hi Greg,

> I can work out how to have the code activate for the first time, just not
> how to get a shortcut to the desktop

Try:

'=============>>
Public Sub Tester()
Dim WSH As Object
Dim MyShortCut As Object
Dim destPath As String
Dim srcPath As String

srcPath = ThisWorkbook.FullName

Set WSH = CreateObject("WScript.Shell")
destPath = WSH.SpecialFolders.Item("Desktop")

Set MyShortCut = WSH.CreateShortcut(destPath & "\Test.lnk")
With MyShortCut
.TargetPath = srcPath
.Save
End With
Set WSH = Nothing
End Sub
'<<=============


---
Regards,
Norman
Hi Norman,
For me, this code does not create a shortcut on the desktop, but instead here:

C:\Documents and Settings\Owner\Application Data\Microsoft\Office\Recent

Why is that?