'Ctrl+aに「sample28」のマクロを登録します。 'このマクロ実行後に、Ctrl+aを押すと「sample28」が実行されます。 Sub Sample30() Application.OnKey "^a", "sample28" End Sub