The Amsterdam Excel Summit

Results 1 to 3 of 3

Thread: Solved: Test if rows are hidden

  1. #1

    Solved: Test if rows are hidden

    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.
    Thank You,
    Daniel Blois

  2. #2
    Distinguished Lord of VBAX VBAX Grand Master xld's Avatar
    Apr 2005

    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"

    MsgBox "Some rows hidden"
    End If
    End Sub
    Nihil simul inventum est et perfectum

    Abusus non tollit usum

    Last night I dreamed of a small consolation enjoyed only by the blind: Nobody knows the trouble I've not seen!
    James Thurber

  3. #3
    Thank you that worked perfectly
    Thank You,
    Daniel Blois

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts