获取用户选择的范围

Sub Count_Selection()
    Dim cell As Object
    Dim count As Integer
    count = 0
    For Each cell In Selection
        count = count + 1
    Next cell
    MsgBox count & " item(s) selected"
End Sub

Selection Range

Dim myRange as Range
Set myRange = Selection

MSDN article

Sub test()
    Dim myString As String
    myString = Selection.Address
End Sub