Experts Exchange connects you with the people and services you need so you can get back to work.
Function CountHiddenLines(rng As Range, Optional bHidden = True) As Long
'bHidden = TRUE counts hidden lines, otherwise counts non-hidden lines
Dim r As Range
Dim l As Long
Application.Volatile 'to capture row hiding not associated with filters
'filters are handled via timestamp on sheet, affecting a worksheet_calculate to update the function results
For Each r In rng.Worksheet.UsedRange.EntireRow
If r.EntireRow.Hidden = bHidden Then
l = l + 1
CountHiddenLines = l
Open in new window
Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.
Premium members get this course for $329.00.
Premium members get this course for $62.50.
Premium members get this course for $122.40.
Premium members get this course for $49.99.
Premium members get this course for $389.00.
Premium members get this course for $24.94.
Premium members get this course for $108.00.