Hi

By using the code generated in a Macro, I've created this function but instead of just applying the formatting to the duplicate cells in a column, I'd like all 20 columns of the table range that corresponds to a duplicate cell to be formatted. The table is ALWAYS 20 columns wide if that helps. This is the code I'm using...

Columns("B:B").Select
Selection.FormatConditions.AddUniqueValues
Selection.FormatConditions(Selection.FormatConditi ons.Count).SetFirstPriority
Selection.FormatConditions(1).DupeUnique = xlDuplicate
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.599963377788629
End With
Selection.FormatConditions(1).StopIfTrue = False


Thank you in advance