Hidden rows loop

[Kent McPherson]

I have this little routine that works in Excel 2003. But I really don't
want to have to select this worksheet and move to it to use it. I have this
code running while I'm on another worskeet. Is there a way to check the
hidden status of the rows in one worksheet while you're in another
worksheet? (these are all in the same workbook)

Sub test()

Worksheets("Labor $").Select
Range("a7").Select

i = 1
Do
ActiveCell.Offset(1, 0).Select
Loop Until Rows(ActiveCell.Row).Hidden = False

End Sub

 

[joel]

With Worksheets("Labor $")

RowCount = 7
Do
RowCount = RowCount + 1
Loop Until .Rows(RowCount).Hidden = False
End With