Q. Shortcut key to execute an event procedure

simple answer no its not possible.

Think only way to assign the shortcut key is how you are doing

Good afternoon jno

You could perhaps use a workaround like this :

Sub test()
Application.OnKey "^{F1}", "MyMacro"
End Sub

Once run, whenever Ctrl + F1 is pressed, the macro "MyMacro" will be run.

HTH

DominicB

dominicb

Please follow the forum rules & wrap your vba code

see red link below

Not sure how you'd get this option to work with CTRL+F1, but you could also just amend your command button's properties to include an Accelerator key.

In design mode, right-click on your button and choose Properties. In the accelerator field, type one of the letters in your command button's caption (e.g. if your command button caption is "My Button", type the letter M into the Accelerator field.

Close the properties window and take the sheet out of design mode. Now your M should have an underline beneath it. If you press ALT + M, it will activate that button.

If you're bent on using CTRL+F1, dominic's code should suffice.

Mudraker

Unfortunately, my computer at work doesn't recognise all buttons on websites, and this extends to the buttons to wrap code, format text, quote text etc, so if I answer a question at work any code is going to be unwrapped.

DominicB