Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

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