Excel VisualBasic Script

Sub selectRange()
    MsgBox ActiveCell.Address
End Sub