Checkbox Macro to Hide/Unhide Rows Not Working Properly

I have a checkbox that I am trying to use to hide and unhide rows. The rows start off hidden, and the aim is to have the rows revealed when the checkbox is checked and then hidden again if the checkbox is unchecked. The code I am using is below. Rather than unhiding and hiding the rows as I'd like, the code does nothing. When I switch the spots of the "1" and "0" as seen below, it will unhide the rows when the checkbox is checked, but it won't re-hide the cells when it is unchecked.

Code that does nothing:

Sub CheckBox47_Click()
    If CheckBox47 = 1 Then
        Rows("66:67").EntireRow.Hidden = False
    ElseIf CheckBox47 = 0 Then
        Rows("66:67").EntireRow.Hidden = True
    End If
End Sub

Code that unhides but does not re-hide rows:

Sub CheckBox47_Click()
    If CheckBox47 = 0 Then
        Rows("66:67").EntireRow.Hidden = False
    ElseIf CheckBox47 = 1 Then
        Rows("66:67").EntireRow.Hidden = True
    End If
End Sub

What am I missing/doing wrong with the macro to get it to perform as I'd like?