Use a macro to create a desktop shortcut?

[[email protected]]

Greetings Everyone,

Our IT group is going to move our stuff to a new server. Everyone's
links to 3 spreadsheets will be obsolete.

I want to put an Excel file where everyone can get it and have a macro
in it that will create shortcuts on the user's desktop. The shortcuts
will be for three separate files.

Thanks in advance for your thoughts.
Glen Ray

[davesexcel]

hi,
on your desk top,
right click and select new
select shortcut
goto browse
and find the file
select the file and it will show up on the desktop

[Bob Phillips]

Here is some code to create a desktop shortcut

'----------------------------------------------------------------
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

Bob Phillips

(remove nothere from email address if mailing direct)

<[email protected]> wrote in message
news:[email protected]...
> Greetings Everyone,
>
> Our IT group is going to move our stuff to a new server. Everyone's
> links to 3 spreadsheets will be obsolete.
>
> I want to put an Excel file where everyone can get it and have a macro
> in it that will create shortcuts on the user's desktop. The shortcuts
> will be for three separate files.
>
> Thanks in advance for your thoughts.
> Glen Ray
>