Hey guys,
Private Sub CheckBox13_Click()
Application.ScreenUpdating = False
Dim cell As Range
Dim InputValue As String
On Error Resume Next
Range("I8,I11,I14,I20,I23,I27,I33").Select
If CheckBox13.Value = True Then
With Selection.Interior
.Pattern = xlSolid...