The subject should summarize the question it's okay if they match, but empty
postings are somewhat of a nuisance, like when is the question going to appear.

To create a shortcut key for a macro
Alt+F8 (Tools, macro, macros), select the macro, options, key in shortcut key.

More information
http://www.mvps.org/dmcritchie/excel...x2k.htm#mykeys

---
HTH,
David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001]
My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm
Search Page: http://www.mvps.org/dmcritchie/excel/search.htm

"bk1803" wrote in message ...

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)


"bk1803" wrote in message
...

I have of course read the subject as creating a shortcut to the file on the
desktop.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Bob Phillips" wrote in message
...
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)


"bk1803" wrote in message
...

and another possibility would be to programmatically create an
Excel shortcut -- an example of which might be
http://www.mvps.org/dmcritchie/excel...x2k.htm#foobar
which might be of interest to Excel 2003 users and I hope the
next version of Excel does not repeat misuse of Ctrl+A.

My goodness, what one can learn with an ambiguous question.
---
HTH,
David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001]
My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm
Search Page: http://www.mvps.org/dmcritchie/excel/search.htm

"Bob Phillips" wrote in message ...
I have of course read the subject as creating a shortcut to the file on the
desktop.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Bob Phillips" wrote in message
...
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)


"bk1803" wrote in message
...