Private Sub CommandButton1_Click()
Dim i As Long
For i = 1 To 7
If Not Me.Controls("CheckBox" & i).Value Then
' Range(Cells(2, 7 + i), Cells(23, 7 + i)).ClearContents
Cells(2, 7 + i).Font.ColorIndex = xlAutomatic
Else
Cells(2, 7 + i).Font.ColorIndex = 3
End If
Next
End Sub