Short cuts?

[Bob Phillips]

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)

 

[Trevor Shuttleworth]

Greg

your system clock seems to be way ahead of itself.

Regards

Trevor

 

[Greg]

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

 

[Greg]

Thanks for that Bob

Greg

 

[Greg]

Thanks Trevor

Will check it out

Greg