Automatically Hiding Rows from True or False Value

[swalsh19]

I'm creating a two sheet workbook where the first sheet will have questions and checkboxes for answers to the questions being asked. If the checkbox is selected we get a True response, if not false, the resultant is placed in row a. I copy the results from sheet A to sheet B. I'm trying to work on some VB code on sheet B to automatically hide rows if a value in a cell is False. If true it is to stay visible. My code isn't working though. Can anyone help?


Private Sub Worksheet_Calculate()
Dim LastRow As Long, c As Range
Application.EnableEvents = False
LastRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
On Error Resume Next
For Each c In Range("A1:A" & LastRow)
If c.Value = False Then
c.EntireRow.Hidden = True
ElseIf c.Value = True Then
c.EntireRow.Hidden = False
End If
Next
On Error GoTo 0
Application.EnableEvents = True
End Sub

[gmr4evr1]

I just copied and pasted your code in the example workbook you provided and it worked perfectly.
Wait, I think I see a problem, if you uncheck the box, it does hide the row on the "results" sheet, but, if you check the true box after, it doesn't unhide the row. Hmmmm

[swalsh19]

If I make A3 be false and A4 & A5 are true it works, same if A4 false, A3 & A5 true. If a5 is false and A3 & a4 true it doesn't work.

It also is hiding the rows above A3 which I don't want I want just the one row in question. I tried swapping True/False for 1/0 as well and same thing.

I can't figure it out.

[gmr4evr1]

I don't understand why it is doing it either. Maybe someone else can take a look at it and help out.

[swalsh19]

Can anyone help me please?