Hi
You could try this
Assuming your data is column A
Sub DeleteDups()
Dim x As Long
Dim LastRow As Long
LastRow = Range("A65536").End(xlUp).Row
For x = LastRow To 1 Step -1
If Application.WorksheetFunction.CountIf(Range("A1:A" & x),
Range("A" & x).Text) 1 Then
Range("A" & x).Select
ActiveCell.Interior.ColorIndex = 3
End If
Next x
End Sub
--
jetted
------------------------------------------------------------------------
jetted's Profile:
http://www.excelforum.com/member.php...o&userid=17532
View this thread:
http://www.excelforum.com/showthread...hreadid=559414