...to display the number of visible rows with a
range of cells.

Maybe another option:

Function CountVisibleRows(TheRange)
Application.Volatile
Dim r As Range '(R)ow
For Each r In TheRange.EntireRow
CountVisibleRows = CountVisibleRows - Not (r.Hidden)
Next r
End Function

--
HTH. :)
Dana DeLouis
Windows XP, Office 2003


"Peter Rooney" wrote in message
...
This is what happens when you take a couple of months away from VBA...

I'm trying to write a function to display the number of visible wows with
a
range of cells.

Function CountVisibleRows(TheRange)
Dim CellToCount As Range
Dim RunningTotal As Long
RunningTotal = 0
For Each CellToCount In TheRange
If CellToCount.Row.Hidden = False Then
RunningTotal = RunningTotal + 1
End If
Next CellToCount
CountVisibleRows = RunningTotal
End Function

but I'm getting a message to say that .row is an invalid qualifier.
It's late in the day 9well, it is for me, anyway) and my brain has entered
the twilight zone.

Can anyone please help?

Thanks in advance

Pete