Home |
Search |
Today's Posts |
#1
|
|||
|
|||
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) "Greg" wrote in message ... 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 |
#2
|
|||
|
|||
Greg
your system clock seems to be way ahead of itself. Regards Trevor "Greg" wrote in message ... 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 |
#3
|
|||
|
|||
Short cuts?
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 |
#4
|
|||
|
|||
Thanks for that Bob
Greg |
#5
|
|||
|
|||
Thanks Trevor
Will check it out Greg |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Is there a short cut key that allows you to toggle between comment | Excel Discussion (Misc queries) | |||
need short cuts in the find option | Excel Discussion (Misc queries) | |||
how do i create a short cut on my desktop for a excell file? | Excel Discussion (Misc queries) | |||
Excel printing "shrink-to-fit" cuts off cell data | Excel Discussion (Misc queries) | |||
Status Bar - Key Board Short Cut | Excel Discussion (Misc queries) |