Sub Test()
Dim i, n&, v&
n = "0"
For i = 0 To 10
v = n + i
ActiveCell.Offset(0, v).FormatConditions.Delete
ActiveCell.Offset(0, v).FormatConditions.Add Type:=xlTextString, String:="x", _
TextOperator:=xlContains
ActiveCell.Offset(0, v).FormatConditions(ActiveCell.Offset(0, v).FormatConditions.Count).SetFirstPriority
With ActiveCell.Offset(0, v).FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With
ActiveCell.Offset(0, v).FormatConditions(1).StopIfTrue = False
Next i
End Sub