If you are try to highlight all the duplicates then you can try the code below. It is set up for Column C, to change the column change the bits in red
Code:Sub DupIt() Dim Rng As Range Dim cel As Range Set Rng = Range(Range("C1"), Range("C" & Rows.Count).End(xlUp)) For Each cel In Rng If WorksheetFunction.CountIf(Rng, cel.Value) > 1 Then cel.Interior.ColorIndex = 3 End If Next cel End Sub




Reply With Quote
Bookmarks