Display Checkbox Code Error

[gfabbott]

I have created a checkbox with a macro designed to display the rest of the sheet when checked.

I have a two-part issue where it is now giving me the runtime error 1004 for the code below.

Part 2 is that I need to protect the sheet and still have the macro run appropriately.

Private Sub CheckBox1_Click()


If CheckBox1 = True Then


    [4:69].EntireRow.Hidden = False


    Else: [4:69].EntireRow.Hidden = True


End If


End Sub

Any and all help is appreciated!