This will create a desktop shortcut if that is what you mean


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

"caldog" wrote in message
...
Trying to develop several worksheets, that will go out to several of our
facilities. When these facilities are loading these worksheets, all I
want
them to do is install and icon on their deskup that will give them access
to
these install sheets. I will have these sheets blocked so using this Icon
is
their only way to gain access to the install sheets.

Can a desktop Icon be developed by using either Excel or VBA?

Steve