Hidden rows loop
 

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

Hidden rows loop
 

With Worksheets("Labor $")

RowCount = 7
Do
RowCount = RowCount + 1
Loop Until .Rows(RowCount).Hidden = False
End With
"Kent McPherson" wrote:

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