VBAのIntersectの挙動について

Question

お世話になっております。

Intersectの挙動がおかしいのか
上手く機能しない為、ご相談をさせてください。

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim row_Number As Long
  Dim limit_range As Range

  Application.EnableEvents = False
  row_Number = 8 '8列目まである
  Set limit_range = Range(Cells(5, 1), Cells(6, 8)) ' A5:H6までの範囲
  
  If Intersect(Range(Target.Address), limit_range) Is Nothing Then
　　msgbox("一致しませんでした")
  Else
　　msgbox("一致しました")
  End If

  Application.EnableEvents = True
end sub

上記のようなコードを書いた場合
・A列を削除しようとする→　一致しました　（正しい）
・A列の5行目のセルを変更した→　一致しました　（正しい）
・H列の6行目のセルを変更した→　一致しました　（正しい）
・H列を削除しようとする→　一致しませんでした　（正しくない）

H列を削除しようとしたら、一致しましたになると思ったのですが
何故、想定外の挙動になってしまうのでしょうか。

すみませんが、何度試しても分からなかったので
よろしくお願いいたします。

Answer 1

当方で新規ブックを作成して、そのシートモジュールに提示のコードを記述して実験しましたが、
すべての場合で「一致しました」となりました。

一度、新規ファイルで試してみてください。
それで想定通り動いたら、別の部分に原因があることになります。

Comments

[kashim]

指摘してくださりありがとうございます。
別に問題がございました。。。

[kashim]

row_number = Range("A5").End(xlToRight).column
とした場合なぜか動かなくなるんですよね・・・

Excelのバグですかね・・・

[退会済みユーザー]

H5セルのデータを削除をしたので、A5セルから見てデータがある一番右のセルが、G5になるからです。