How to create short cuts in excel?

[David McRitchie]

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/shortx2k.htm#mykeys

 

[Bob Phillips]

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)

 

[Bob Phillips]

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)

 

[David McRitchie]

and another possibility would be to programmatically create an
Excel shortcut -- an example of which might be
http://www.mvps.org/dmcritchie/excel/shortx2k.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.