条件付き書式を設定する

Range("A1").FormatConditions.Delete '条件付き書式をリセット
With Range("A1").FormatConditions.Add(Type:=xlTextString, String:="hoge", 
TextOperator:=2)
    .Font.Color = RGB(255, 255, 255)    '文字色
    .Interior.Color = RGB(255, 0, 0)    '背景色
End With