Sub CtrlAltG(bInit As Boolean)
Application.OnKey "^%g", IIf(bInit, "TestCtrlAltG", "")
End Sub
Sub TestCtrlAltG()
MsgBox "TestCtrlAltG"
End Sub
Don't forget to clear any OnKeys when done, for example in the workoks close
event
For something more general purpose look into use of the GetAsyncKeyState
API, though Alt strokes probably won't pass through the sheet, so to speak.
Some examples from long ago!