Private Sub box_change()
Dim i, j, k As Integer
Dim fintab As Integer
Dim ws As Worksheets
Dim cb As CheckBox
i = 7
For Each ws In Workbook
fintab = Range("A" & Rows.Count).End(xlUp).Row
For i = 7 To fintab
If Range(i, 11).Value = "x" Then
For Each cb In Range(Cells(i, 5), Cells(i, 9))
If cb.Value = True Then
For j = 5 To 9
Cells(i, j).Interior.ColorIndex = xlNone
Else
Cells(i, j).Interior.ColorIndex = 6
End If
Next
End If
Next
Next
End Sub