Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Formatting Duplicate Cells

Sub FormatDuplicate()     With Selection         .FormatConditions.Delete         .FormatConditions.AddUniqueValues         .FormatConditions(1).DupeUnique = xlDuplicate         .FormatConditions(1).Interior.Color = RGB(255, 0, 0)     End With End Sub