カーソルを動かしたときは発動させたくありません

質問

エクセルの
Worksheet_SelectionChangeイベントで
---------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address = "$A$1" Then
MsgBox "$A$1です"
End If

End Sub
---------------------------------------------------------
のコードを標準モジュールに書いて、Ａ１セルをクリックすると、MsgBoxが表示させますが、
Ｂ１セルから、キーボードの「→」キーを押してＡ１に移動してもMsgboxが表示されてしまいます。

クリックした時はマクロを発動させたいのですが、カーソルを動かしたときは発動させたくありません。
そんな事は可能でしょうか？

回答No.1

DreamyCat · ベストアンサー

以下の２つが用意されています。

・ダブルクリック
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

End Sub

・右クリック
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

End Sub

お礼

ありがとうございました。