イベントプロシージャが作動しません。

Question

VBA初心者です。回答よろしくお願い致します。

####（１）説明
手順１、イベントプロシージャにて、A1のセルを選択すると、『セルを選択』とメッセージボックスに表示するコードがあります。

手順２、このコードは 参考書に乗っており、WEBからデータをダウンロードしたものは、
正常に作動します。

手順３、このコードを私のパソコンのEXCELにコピペすると正常に作動しません。

※どこのセルをクリックしても、メッセージボックスが表示されます
※シート名『Sheet1』のシートモジュールに、入力しました。
※EXCELのシートは、シート名『Sheet1』のシートしかありません。

質問、手順３が手順２のように作動しないのは、なぜでしょうか

※手順２、手順３ともに同じパソコンで実施しています。拡張子も両方とも.xlsmです

####（２）コードは以下の通り

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target = Range("A1") Then
MsgBox "セルを選択"
End If
End Sub

####（３）検証
以下コードを実施しました。
Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Debug.Print "ActiveCell", ActiveCell.Row, ActiveCell.Column`ｱｸﾃｨﾌﾞｾﾙの行列を表示`
Debug.Print "Target", Target.Row, Target.Column`Targetの行列を表示`
Debug.Print "A1", Range("A1").Row, Range("A1").Column`A1セルの行列を表示`


If Target = Range("A1") Then
    
    MsgBox "セルを選択"
   
End If

End Sub

####（４）検証結果
１、セルC5を選択しました。
２、メッセージボックスが表示されます
３、イミディエイトウインドウには、以下のように表示されます
ActiveCell 5 3
Target 　 5 3
A1 　 1 1

####（５）検証のまとめ
オブジェクトの場所は正常に 検知されているので
セルA1を選択した場合のみ、メッセージボックスが表示されるはずですが
そうではありませんでした。

Answer 1

If Target.Address = Range("A1").Address Then

元のコードだと、ターゲットのセルの値とA1セルの値を比べることになるので、例えばどちらのセルも空白だったりすると、イコールになってしまいます。

Comments

[ta-]

回答ありがとうございます！！
正常に動きました！