It works for me, but I had to rename it CheckBox1_Click.

It can also be reduced to

Sub CheckBox1_Click()
Sheets("Sheet2").Visible = ActiveSheet.CheckBoxes("Check Box 1").Value =
1
End Sub


--
__________________________________
HTH

Bob

"newguy" wrote in message
...
I am trying to use a form control text box to hide tabs in a worksheet
and I cant seem to get it to work any suggestions.
Sub CheckBox_Click()
If ActiveSheet.CheckBoxes("Check Box 1").Value = 1 Then
Sheets("Sheet2").Visible = False
Else
Sheets("Sheet2").Visible = True
End If
End Sub