無効なセルを参照した場合の判定について

質問

表内のセルを選択した場合と、表外のセルを選択した場合に処理を分けたいと考えています。アクティブセルがhaniに含まれる場合(または含まれない場合)ですが、<>と=では無理なようなのですが、何を調べても分かりません。どなたかよろしくお願いいたします。
Windows2003、XPです。
Sub shita()
Dim a As Range
Dim hani As Range

Set hani = UsedRange
b = ActiveCell.Address

MsgBox UsedRange.Address & " " & ActiveCell.Address

If b = hani.Address Then
Range("A1").Select
Else
MsgBox "表内のセルを選択してください。"
End If
End Sub

回答No.1

n-jun · ベストアンサー

Sub shita()
Dim a As Range
Dim hani As Range

Set hani = ActiveSheet.UsedRange
Set a = ActiveCell

MsgBox hani.Address & " _ " & a.Address

If Not Intersect(hani, a) Is Nothing Then
Range("A1").Select
Else
MsgBox "表内のセルを選択してください。"
End If
End Sub

かな？

お礼

ありがとうございました。完璧にできました。実はこのマクロは、表内のセルを選択した場合、下に位置行挿入するためのものです。仕事でたくさんの名簿を町別に入力する作業が大量にあり、右クリックが億劫なので考えたものです。何カ月も前から考えてきたのですができませんでした。本当にありがとうございました。