Identifying Beginning and Ending Rows in a Selected Range

[JR_06062005]

Is there a way in VB to identify the beginning and ending rows in a selected
range. The command below gives the address:

ActiveWindow.RangeSelection.Address

But what I want to do is to determine how many rows (and perhaps columns)
are in a selected range.

 

[Mike H]

Maybe

Sub Macro2()

x = Selection.Rows.Count
y = Selection.Columns.Count
MsgBox x & " Rows. " & y & " Columns."

End Sub

Mike

 

[JR_06062005]

Thanks. That did the trick.

Maybe

Sub Macro2()

x = Selection.Rows.Count
y = Selection.Columns.Count
MsgBox x & " Rows. " & y & " Columns."

End Sub

Mike