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

Thanks.

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


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

Thanks.

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)" wrote:

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


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

Thanks.

With Rows("4:10")

.Hidden = Not .Hidden
End With

--
__________________________________
HTH

Bob

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

Thanks.

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


"Bob Phillips" wrote in message
...

With Rows("4:10")

.Hidden = Not .Hidden
End With

--
__________________________________
HTH

Bob

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

Thanks.

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


"Rick Rothstein (MVP - VB)" wrote in
message ...
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


"Bob Phillips" wrote in message
...

With Rows("4:10")

.Hidden = Not .Hidden
End With

--
__________________________________
HTH

Bob

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

Thanks.