rows not hiding properly

[andrewb90]

Hello all,

When this code runs, select rows are supposed to hide when the value of column F is TRUE, but I'm not sure why it's not working...

Sub Hiderows()Application.ScreenUpdating = False
Rows("4:10").Hidden = False
    For r = 4 To 10
        If r <> 7 Then
            If Range("F" & r).Value = "TRUE" Then Rows(r).Hidden = True
        End If
    Next r
Application.ScreenUpdating = True


End Sub

The Value is from a form control checkbox. 
Any help would be greatly appreciated.

 

[mikerickson]

Try

If Range("F" & r).Value Then Rows(r).EntireRow.Hidden = True