特定のセルのエスケープボタンのOnKeyイベントを定義したい
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Value = "a" Or ActiveCell.Value = "b" Then
Application.OnKey "{ESC}", "unit"
そして、エラーポップアップが表示されました-マクロが使用できないか、無効になっています...
Sub unit()はスタンドアロンプロシージャとして正常に機能します。