yes. It could be a bit simplified but its correct

vb.net Code:
  1. With Worksheets("sheet1").Range("A:B")

  2.     .FormatConditions.AddUniqueValues

  3.     .FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

  4.     .FormatConditions(1).DupeUnique = xlDuplicate

  5.     .FormatConditions(1).Font.Color = vbRed

  6. End With