Sub TEST2() '「Ctrl + e」を「TEST1」に割り当てる Application.OnKey "^e", "TEST1" End Sub
参考: *https://daitaideit.com/vba-set-shortcut-key/