UsedRange Ａ１があれば、msgbox

質問

http://www.moug.net/tech/exvba/0050092.html
をみて、
Sub UsedRangeSamp1()

ActiveSheet.UsedRange.Select

End Sub
と言うコードを使ってるのですが、
この中に、Ａ１があれば、msgboxでＯＫを表示させるにはどうすればいいですか？

ifステートメントを使うんだと思いますが、それ以上がわかりません。
ご回答よろしくお願いします。

回答No.1

keithin · ベストアンサー

sub macro1()
if not application.intersect(activesheet.usedrange, range("A1")) is nothing then msgbox "INCLUDED"
end sub

みたいな。

お礼

ご回答ありがとうございます。