Error getting Row number

[Guest]

Hello.
I have the follow in part of a sub.


Private Sub Workbook_SheetSelectionChange
..
<code>
RowNum = ActiveCell.Row
<code>
..
End Sub

The problem is when I select multiple rows I either get error messages or
freeze Excel (2002 w/ XP).
How do I change this so that if multiple rows are selected only then only
the bottom row is looked at for naming my variable.
Thanks in advance,
Brad K

 

[Don Guillett]

try

x = Cells(ActiveCell.Row, ActiveCell.Column).End(xlDown).Row
MsgBox x

 

[Ken Wright]

With Selection
rownum = .Row - 1 + .Rows.Count
End With