Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
For Each C In Range("A2:F2")
C.Interior.ColorIndex = xlNone
C.Font.ColorIndex = 1
If C.Value = "x" Then C.Interior.ColorIndex = 3
Next C
End Sub
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim C As Range, i as Integer
Application.ScreenUpdating = False
For i = 1 To 200
For Each C In Range(Cells(i, 1), Cells(i, 6))
C.Interior.ColorIndex = xlNone
C.Font.ColorIndex = 1
If Cells(i, 24) = "x" Then C.Interior.ColorIndex = 3
Next C
Next i
Application.ScreenUpdating = True
End Sub