Private Sub Worksheet_SelectionChange(ByVal Target As Range)で範囲選択したい【VBA】

経緯

VBAで、Private Sub Worksheet_SelectionChange(ByVal Target As Range)を使うとき、

1つのセルでの処理をやっていたが、もっと広い範囲で処理を行いたくて、

今回勉強しました。

IF Not intersect(Target, Range(“A1″:”B3”)) Is Nothing Then….を使う

まず、プログラムを書きます。セル”A1”からセル”B3″を選択したら、メッセージが出てくるって設定です。

PrivateSub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target,Range("A1":"B3")) Is Nothing Then
   MsgBox "入力できません"
Else
end If
end Sub

こんな感じです。

私は「If Target.Column = 1 And Target.Row = 1 Then」のようにできないかと考えてましたが、

うまくいきませんでした。

参考になれば、幸いです。

ここまで読んでいただきありがとうございました。