Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F:F")) Is Nothing Then
Select Case True
Case (Target.Value Mod 2) = 0
Range(Cells(Target.Row, "A"), Cells(Target.Row, "F")).Interior.Color = RGB(220, 220, 220)
Case (Target.Value Mod 2) = 1
Range(Cells(Target.Row, "A"), Cells(Target.Row, "F")).Interior.Color = -4142
End Select
End If
End Sub