Is there a way to get excel in a macro to put a shortcut to the current file
on to the desktop?

Thanks in advance

Greg

Hi Greg,

Here is some code

Sub CreateShortCut()
Dim oWSH As Object
Dim oShortcut As Object
Dim sPathDeskTop As String

Set oWSH = CreateObject("WScript.Shell")
sPathDeskTop = oWSH.SpecialFolders("Desktop")

Set oShortcut = oWSH.CreateShortCut(sPathDeskTop & "\" & _
ActiveWorkbook.Name & ".lnk")
With oShortcut
.TargetPath = ActiveWorkbook.FullName
.Save
End With
Set oWSH = Nothing

End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Greg" wrote in message
...
Is there a way to get excel in a macro to put a shortcut to the current
file
on to the desktop?

Thanks in advance

Greg

Thanks for that Bob

Greg

Greg

your system clock seems to be way ahead of itself.

Regards

Trevor


"Greg" wrote in message
...
Is there a way to get excel in a macro to put a shortcut to the current
file
on to the desktop?

Thanks in advance

Greg

Thanks Trevor

Will check it out

Greg