Get the row and column of a range address

[TomPC]

Example range: "A1:D9"

Is there a smarter way of getting the last row (9) and last column (D=4) of a range address than:

range(mid(selection.address,instr(1,selection.address,":")+1,200)).Row
range(mid(selection.address,instr(1,selection.address,":")+1,200)).Column

I'm hoping for some nice object-based solution like:

selection.TheLastRowInTheUniverse

 

[VoG]

Try like this

MsgBox Selection.Row + Selection.Rows.Count - 1

 

[jasonb75]

Or

With Selection
    MsgBox .Offset(.Rows.Count - 1).Row
    MsgBox .Offset(, .Columns.Count - 1).Column
End With

 

[TomPC]

Thanks fellas,

.Count was the answer!

Tom