Makro do oznaczania dubli VB-Excel

To makro umożliwi wyłonienie z posortownej kolumny dubli.
Pozostanie pierwsze wystąpienie nazwy, kolejne zmienią się na nazwę "Duble"
Teraz można je przefiltrować i usunąć.

Sub OznaczDuble()
Dim RowNdx As Long
Dim ColNum As Integer
ColNum = Selection(1).Column
For RowNdx = Selection(Selection.Cells.Count).Row To _
Selection(1).Row + 1 Step -1
If Cells(RowNdx, ColNum).Value = _
Cells(RowNdx - 1, ColNum).Value Then
Cells(RowNdx, ColNum).Value = "Duble"
End If
Next RowNdx
End Sub