Hi sammy,

Your replies helped me a lot.. I have used this code and it worked for me

-------
Private Sub CheckBox1_Click ()
If CheckBox1.Value = True Then
Worksheets("She et2").Visible = xlSheetHidden
Else
Worksheets("She et2").Visible = xlSheetVisible
End If
End Sub
---------------

One last question.. how this code can...