This is sort of a gerry rig but it works and will do what you want.

Sub fl()
Dim x As Long
x = Selection.SpecialCells(xlCellTypeVisible) _
.Count / Selection.Columns.Count
MsgBox x
End Sub




"JLGWhiz" wrote in message
...
I noticed an anomaly about using the xlVixible property to count the rows.
If you use the Rows.Count, it only counts to down to the first hidden row.
But if you only select one column and count the special cells visible
property, it give the correct count of rows not hidden.


"Phil H" wrote in message
...
Need to modify this maco to not count hidden rows. For example if seven
rows
of ten rows in question are hidden, I need the macro to count only the
three
visible on screen.

Also, if no rows were hidden, and all ten were selected (highlighted),
the
macro should count ten.

In other words, it should count only what is selected/visible on screen.

Sub CountHighlightedRows()
MsgBox "Rows Selected: " & Selection.Rows.Count
End Sub