CheckBox Control only works one way

[cizzett]

So I have a checkbox on the page that I want to hide and unhide a row, playing the script it works perfect but when I click the checkbox it only works once but wont uncheck and unhide.

Im sure its simple but I'm missing it somewhere. I have the checkbox declared as a variable already when I call Dec it is the declarations

Sub Row1Hide_*******() Call Dec
If HideCB.Value = 1 Then
HideCB.Value = False
Ws.Rows("1:1").EntireRow.Hidden = False
Else
HideCB.Value = True
Ws.Rows("1:1").EntireRow.Hidden = True
End If
   End Sub

 

[bobsan42]

Well it is simple. Two things:
When you click the cb the value is changed - dodon change it again in the code.
You don't need to use IF.

Ws.Rows("1:1").EntireRow.Hidden = Not HideCB.Value

This is all the code you need. It should go in the code for click or change event of the CB.