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

--
Regards
Ken....................... Microsoft MVP - Excel
Sys Spec - Win XP Pro / XL 97/00/02/03

----------------------------------------------------------------------------
It's easier to beg forgiveness than ask permission :-)
----------------------------------------------------------------------------

"Brad K." wrote in message
...
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