One way:

Dim nLastRow As Long
Dim nLastCol As Long
With Selection
nLastRow = .Item(.Count).Row
nLastCol = .Item(.Count).Column
End With

In article ,
"Michael Allen" wrote:

I would like to determine the maximum row and column references for a
selected range of cells,