Code Screw-up - Hide will not UnHide

[yevlar]

Okay, I have a worksheet where Column F contains Check Boxes. At the top of the worksheet I have a checkbox that I want to use to hide rows that have the box in Column F checked.

I tried out the following code and applied it to a regular Form checkbox (not Active-X), and it works great to hide the rows, but will not unhide them when unchecked.

I'm assuming I either missed something in the code or am trying to use code that shouldn't be used for this purpose.

Sub hide()
Dim Rng As Range, cell As Range

Set Rng = Range("F3:F1000")

For Each cell In Rng
    Select Case cell.Value
        Case Is = True
            cell.EntireRow.Hidden = True
        Case Else
            cell.EntireRow.Hidden = False
    End Select
Next cell

End Sub

 

[Von Pookie]

The second set of code is succeeding to hide and unhide the rows, but each time I click the master checkbox I get Error 400.

Is there a line of the code highlighted when the error occurrs? What line is it?

One of the other things I'm doing is conditional formatting so when the checkbox in Column F is True, the entire row switches to a Green background color. Would it be easier to have the Master Checkbox hide all rows that are Green instead of messing with the checkboxes themselves?

Not easier coding using conditional formatting, no. It's just as easy to check the value of the cell(s) in the column and hide them accordingly as you are currently doing.

 

[Von Pookie]

Continued. See:
http://www.mrexcel.com/board2/viewtopic.php?t=233586