アクティブセルを取得する

Sub A_Sample002()
Dim myRng As Range
On Error Resume Next
Set myRng = ActiveCell
On Error GoTo 0
If myRng Is Nothing Then
MsgBox “ActiveCellが取得できません”
Else
MsgBox myRng.Address
End If
Set myRng = Nothing                         ‘オブジェクトの解放
End Sub