Sub CondFormatCreate()
Set NamesRng = [c2:c12]
For i = 1 To NamesRng.Count
Range("F:F").FormatConditions.Add Type:=xlExpression, Formula1:="=F1=""" & NamesRng(i).Value & """"
Range("F:F").FormatConditions(Range("F:F").FormatConditions.Count).SetFirstPriority
With Range("F:F").FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = NamesRng(i).Interior.Color
End With
Range("F:F").FormatConditions(i).StopIfTrue = False
Next i
End Sub
