Need Help on Macro That Assigns Command Key

[Alex20850]

Sub Certify()
Application.OnKey "+^(B)", "FixNow"
End Sub


Sub FixNow()
ActiveCell.value = Now
End Sub

 

[StephenCrump]

Application.OnKey "+^B", "FixNow"

 

[Alex20850]

I have tried different Ctrl key combinations in the code and then in the spreadsheet.
Instead of the macro being run, it does the shortcut.

 

[StephenCrump]

I have tried different Ctrl key combinations in the code and then in the spreadsheet.
Instead of the macro being run, it does the shortcut.

I'm not clear ...

If I run Sub Certify, as written, then any time I use the key combination Ctrl-Shift-B in that instance of Excel, Sub FixNow will run and put a timestamp in the ActiveCell.

It sounds like you're saying that Ctrl-B still toggles Bold on/off?

 

[Alex20850]

I'm not clear ...

If I run Sub Certify, as written, then any time I use the key combination Ctrl-Shift-B in that instance of Excel, Sub FixNow will run and put a timestamp in the ActiveCell.

It sounds like you're saying that Ctrl-B still toggles Bold on/off?

I changed it to the following and Ctrl+a still works as a shortcut instead of running the macro.

Sub Certify()
Application.OnKey "+^(a)", "FixNow"
End Sub

Sub FixNow()
ActiveCell.value = Now
End Sub