VBA UsedRangeで選択範囲を取得したい

質問

セルに
aaa
bbb
ccc

と入力し、vbaで
Sub Macro()
MsgBox ActiveSheet.UsedRange
End Sub
を実行すると、
型が一致しません。(Error 13)
と言うエラーになります。

"$A$1:$D$3"と言うような値を取得したいのですが、どのようなＶＢＡにすればいいのでしょうか？

ご回答よろしくお願いします。

回答No.1

keithin · ベストアンサー

方法１）
msgbox activesheet.usedrange.address
とする

方法２）
msgbox range("A1").currentregion.address
とする

方法３）
msgbox application.intersect(activesheet.usedrange, range("A:A")).address
とする

お礼

Address
が必要なのですね！ありがとうございました。