Sub CLEAR_ALL()
'This CLEARS/DELETES all the input data fields and checks or unchecks the check boxes
Dim CB2 As CheckBox
Dim CB3 As CheckBox
Dim CB4 As CheckBox
Dim CB5 As CheckBox
Dim CB6 As CheckBox
Dim CB7 As CheckBox
Dim CB8 As CheckBox
Dim CB9 As CheckBox
Dim CB10 As CheckBox
Dim CB11 As CheckBox
Dim CB12 As CheckBox
Set CB2 = ActiveSheet.CheckBoxes("check Box 2")
Set CB3 = ActiveSheet.CheckBoxes("check Box 3")
Set CB4 = ActiveSheet.CheckBoxes("check Box 4")
Set CB5 = ActiveSheet.CheckBoxes("check Box 5")
Set CB6 = ActiveSheet.CheckBoxes("check Box 6")
Set CB7 = ActiveSheet.CheckBoxes("check Box 7")
Set CB8 = ActiveSheet.CheckBoxes("check Box 8")
Set CB9 = ActiveSheet.CheckBoxes("check Box 9")
Set CB10 = ActiveSheet.CheckBoxes("check Box 10")
Set CB11 = ActiveSheet.CheckBoxes("check Box 11")
Set CB12 = ActiveSheet.CheckBoxes("check Box 12")
CB2.Value = xlOff
CB3.Value = xlOff
CB4.Value = xlOn
CB5.Value = xlOn
CB6.Value = xlOn
CB7.Value = xlOff
CB8.Value = xlOff
CB9.Value = xlOff
CB10.Value = xlOff
CB11.Value = xlOff
CB12.Value = xlOff
Range("O1:BL3,BX1:CL2,BM3:CL3,O4:CL4,A5:CL5,BL6:BY6").Select
Range("BL6").Activate
Selection.ClearContents
Range("CP3:EF27,GI3:JI27").Select
Range("GI3").Activate
Selection.ClearContents
Range("BX10:CE10,BE14:CE16,BX17:CE17,BX20:CE23,BD24:CE28").Select
Range("BD24").Activate
Selection.ClearContents
Range("A35:F71,AM35:AQ71").Select
Range("AM35").Activate
Selection.ClearContents
Range("BA35:BE71").Select
Selection.FormulaR1C1 = "100%"
Range("BA73:BE81").Select
Selection.FormulaR1C1 = "100%"
Range("A77:F81,AM77:AQ81").Select
Range("AM77").Activate
Selection.ClearContents
Range("A85:BF103").Select
Selection.ClearContents
Range("BH85:BL103").Select
Selection.FormulaR1C1 = "100%"
Range("O1:BL1").Select
'This works on ActiveX CheckBox
'ActiveSheet.CheckBox1.Value = True
End Sub