Help with shortcut key code

[will]

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:="+^{$}", procedure:="fmtDollar"
.OnKey key:="+^{%}", procedure:="fmtPercent"
.OnKey key:="+^{!}", procedure:="fmtComma"
.OnKey key:="+^{~}", procedure:="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.

 

[Greg Wilson]

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

 

[will]

That seemed to work. Thanks.