Question

[dk]

How do i find out repeating text or number in a series.

[jetted]

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