Check box to show whether a range is visible

[UncleBajubjubs]

Hello,
I am creating a form in which the user can toggle whether sections are hidden using a check box. When the user clicks the check box, it should hide and unhide the section.
I inserted a checkbox and assigned it the following macro:

Sub Toggle()
If Range("LEHours").EntireRow.Hidden = True Then
Range("LEHours").EntireRow.Hidden = False
Else
Range("LEHours").EntireRow.Hidden = True
End If
End Sub

This works at hiding and unhiding the section, but once clicked, the checkbox stays checked even when you press it again. How might I make the checkbox properly show unchecked when the section is hidden?

Thanks.

 

[mikerickson]

If you are using a checkbox from the forms menu (not ActiveX), you could assign it to code like this

Sub CheckBox1_Click()
    With ActiveSheet.Shapes(Application.Caller).ControlFormat
        Range("LEHours").EntireRow.Hidden = (.Value = xlOff)
    End With
End Sub

 

[Yongle]

And the Active-X equivalent (also works with Userform checkbox)

Private Sub CheckBox1_Click()
    Range("LEHours").EntireRow.Hidden = Not Range("LEHours").EntireRow.Hidden
    CheckBox1.Value = Range("LEHours").EntireRow.Hidden
End Sub

 

[UncleBajubjubs]

That works, thanks!