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

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

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

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

You could put it in an Excel file with a single command button that
runs the macro, then email the Excel file to all your users.

Or you could put it in a VBS file (just a text file with a .vbs
extension) and mail that out. I don't know if it would make it through
the mail servers though - probably get tagged as a virus.

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