Hi newguy

Try the below code, its working for me.

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Worksheets("Sheet2").Visible = True
Else
Worksheets("Sheet2").Visible = False
End If
End Sub


"newguy" wrote:

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