If then, hidden rows

[pgarcia]

Hello all,
If rows a4-a10 are hidden, then un-hide, but if they are un-hidden, then hide.
Looking for a VB.

Thanks.

 

[Rick Rothstein \(MVP - VB\)]

This should work (just set the worksheet reference according to your
needs)...

Dim R As Range
For Each R In Worksheets("Sheet1").Rows("4:10")
R.Hidden = Not R.Hidden
Next

Rick

 

[Bob Phillips]

With Rows("4:10")

.Hidden = Not .Hidden
End With

 

[pgarcia]

GOD, I have to take a class one of these days.
Thanks you very much. It's got a cool "wow" factor when I have the VB code
in a com button.

 

[Rick Rothstein \(MVP - VB\)]

That seems to be simply unhiding all the hidden rows in that range for me;
it does seem to hide the currently unhidden ones. Are you seeing it work
differently than that?

Rick

 

[Rick Rothstein \(MVP - VB\)]

Actually, in looking at it closer, it seem to be setting the Hidden property
of the entire range to the opposite of what Row 4's (the first row in the
range's) Hidden property is set to.

Rick