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.
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)
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.
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.
