#1   Report Post  
Bob Phillips
 
Posts: n/a
Default

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   Report Post  
Trevor Shuttleworth
 
Posts: n/a
Default

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   Report Post  
Greg
 
Posts: n/a
Default 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   Report Post  
Greg
 
Posts: n/a
Default

Thanks for that Bob

Greg


  #5   Report Post  
Greg
 
Posts: n/a
Default

Thanks Trevor

Will check it out

Greg


Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Is there a short cut key that allows you to toggle between comment jbsand1001 Excel Discussion (Misc queries) 3 April 1st 05 05:23 AM
need short cuts in the find option Trisher75 Excel Discussion (Misc queries) 5 March 3rd 05 11:07 PM
how do i create a short cut on my desktop for a excell file? Gary Excel Discussion (Misc queries) 3 February 3rd 05 07:00 PM
Excel printing "shrink-to-fit" cuts off cell data Tim Excel Discussion (Misc queries) 1 January 22nd 05 02:12 AM
Status Bar - Key Board Short Cut excel_googler Excel Discussion (Misc queries) 1 November 26th 04 01:58 AM


All times are GMT +1. The time now is 11:12 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"