シートの使用セル範囲を取得する

‘Module1
Option Explicit
Sub A_Sample004()
Dim myRng As Range
Dim mySht As Worksheet
Set mySht = Worksheets(1)   ‘任意のシート
‘準備ここまで
Set myRng = mySht.UsedRange
MsgBox myRng.Address
Set myRng = Nothing         ‘オブジェクトの解放
Set mySht = Nothing
End Sub