Solved: Test if rows are hidden

[Djblois]

I know how to loop through every row and test if they are hidden but is it possible to test every row in one shot (I dont want to loop because a worksheet could be thousands of rows and it will take a really long time). All I want is for it to return a true value if possible.

[Bob Phillips]

Sub ClassTest()
Dim rng As Range

Set rng = Range("A1:A100")

If rng.SpecialCells(xlCellTypeVisible).Rows.Count = rng.Rows.Count Then

MsgBox "No rows hidden"
Else

MsgBox "Some rows hidden"
End If
End Sub

[Djblois]

Thank you that worked perfectly