'初期化したいとき
Application.MacroOptions Macro:="kansu", ShortcutKey:=""

'下記はCTRL+aとなる
Application.MacroOptions Macro:="kansu", ShortcutKey:="a"
'CTRL+SHIFTにしたいときは、aを大文字Aにする