Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. Formatting Unique Cells
Sub FormatUnique()
    With Selection
        .FormatConditions.Delete
        .FormatConditions.AddUniqueValues
        .FormatConditions(1).DupeUnique = xlUnique
        .FormatConditions(1).Interior.Color = RGB(255, 0, 0)
    End With
End Sub