Say in module1 we have:

Sub hello()
MsgBox ("HELLO")
End Sub

running this:

Sub setshort()
Application.OnKey "+^{F}", "module1.hello"
End Sub


will assign the shortcut CNTRL-SHIFT-F to it
--
Gary''s Student - gsnu200726