Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Integer
If Not Application.Intersect(Target, Union(Range("B11:B260"), Range("F11:F260"), Range("L11:L260"), Range("P11:P260"))) Is Nothing Then
If IsDate(Cells(Target.Row, 2)) Then x = 43
If IsDate(Cells(Target.Row, 6)) Then x = 8
If IsDate(Cells(Target.Row, 12)) Then x = 4
If IsDate(Cells(Target.Row, 16)) Then x = 33
If IsDate(Cells(Target.Row, 2)) And IsDate(Cells(Target.Row, 6)) And IsDate(Cells(Target.Row, 12)) And IsDate(Cells(Target.Row, 16)) Then
x = 44
End If
Cells(Target.Row, 3).Interior.ColorIndex = x
End If
End Sub