Sorry to take so long to reply, different time zones meant I was fast asleep
when you posted :-).

The code should go into a standard code module (Alt-F11, InsertModule).

To know which workbook or whatever to add it to would require more detail on
how you will work with all of this, there are many options.

--
HTH

Bob Phillips

"caldog" wrote in message
...
Still looking for help in how to use the code that Bob said to use, very
new
at VBA.

Steve

"caldog" wrote:

Thanks Bob

For everything to work correctly, and I am asking you this question
becasue
I am fairly new at VBA code, where should this code be placed to work
like I
want i to
?

Steve
"Bob Phillips" wrote:

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