Selection range

[Admin]

Works only on ActiveSheet

may be..

    With Sheet1
        MsgBox .Range(.Cells(4, 5), .Cells(.Rows.Count, 5).End(3)).Address
    End With