Checking the Value of a Check Box in a Macro
 

I have a macro that hides a named range on rows. I also have a check box.
If the check box is checked I want an error message to display and tell the
user to clear the check boxes before teh rows will hide.

'
' Hide Spec_Plu_22_10_00
'
Sub Hide_Spec_Plu_22_10_00()
'Unprotect Time Sheet
ActiveSheet.Unprotect
If CheckBox135 = True Then
MsgBox "Uncheck boxes in spec section your trying to close.",
vbInformation, "Alert Message"
GoTo 300
Else
GoTo 200
End If
'Hide Rows
200 Range("Plu_22_10_00").Select
Selection.EntireRow.Hidden = True
'Protect On
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios _
:=True
300 End Sub