Private Sub CheckBox1_Click()
If CheckBox1 = True Then
Range("C:C,F:F,I:I,L:L,O:O,R:R,U:U,X:X,AA:AA,AD:AD,AG:AG,AJ:AJ").EntireColumn.Hidden = True
Else
Range("C:C,F:F,I:I,L:L,O:O,R:R,U:U,X:X,AA:AA,AD:AD,AG:AG,AJ:AJ").EntireColumn.Hidden = False
End If
End Sub