Hi OKLover,

Try:

Sub Tester1()
Dim rng As Range, Ar As Range, rw As Range
Dim iCtr As Long

Set rng = Selection

For Each Ar In rng.Areas
For Each rw In Ar.Rows
iCtr = iCtr + 1
Next rw
Next Ar

MsgBox "There are " & iCtr & " rows in the selection"

End Sub

---
Regards,
Norman



"OKLover" wrote in message
...
When i used the CTRL and SHIFT key to multiple select some rows, ex: Row
1, 5, 7,11. How do i to check how many rows has been selected? like return
4.