Help with shortcut key code
I have created a bunch of macros and want to assign shortcut keys to
them using code instead of the tools option method since you have to assign to a letter using that method. I have a bunch of subs that are very basic and work when I use F5. To assign macros I created the following code in the same module as the subs. Public Sub Workbook_Open() With Application .OnKey key:="+^{$}", procedu="fmtDollar" .OnKey key:="+^{%}", procedu="fmtPercent" .OnKey key:="+^{!}", procedu="fmtComma" .OnKey key:="+^{~}", procedu="fmtGeneral" End With End Sub I cannot for the life of me figure out why the subs won't fire using ctrl+shift+4, ctrl+shift+5 etc... Any help is greatly appreciated. |
Help with shortcut key code
I assume the use of the ":=" is a typo because the
compiler should have choked on this. To get numbers to work leave them outside of the curly brackets:- Sub OnKey() Application.OnKey "^+4", "TestOnKey" End Sub Sub TestOnKey() MsgBox "OnKey worked !!!" End Sub Regards, Greg |
Help with shortcut key code
That seemed to work. Thanks.
"Greg Wilson" wrote in message ... I assume the use of the ":=" is a typo because the compiler should have choked on this. To get numbers to work leave them outside of the curly brackets:- Sub OnKey() Application.OnKey "^+4", "TestOnKey" End Sub Sub TestOnKey() MsgBox "OnKey worked !!!" End Sub Regards, Greg |
All times are GMT +1. The time now is 01:22 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com