Error getting Row number

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

try

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



--
Don Guillett
SalesAid Software
[email protected]
"Brad K." <[email protected]> wrote in message
news:[email protected]...
> 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

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." <[email protected]> wrote in message
news:[email protected]...
> 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