slet dubletter

Marker dine ean-numre og kun dem.
kør denne makro

Sub RemoveDuplicates()
    Dim AllCells As Range, Cell As Range
    Dim Uniqs              As New Collection
    Dim oldCalc            As Long

    Application.ScreenUpdating = False
    oldCalc = Application.Calculation
    Application.Calculation = xlCalculationManual

    Set AllCells = Selection
    On Error Resume Next
    For Each Cell In AllCells
        Uniqs.Add Cell.Value, CStr(Cell.Value)
        If Err.Number <> 0 Then Cell = Null
        Err.Clear
    Next Cell

    AllCells.SpecialCells(xlCellTypeBlanks).Select
    Selection.EntireRow.Delete Shift:=xlUp

    Application.ScreenUpdating = True
    Application.Calculation = oldCalc
    Set Uniqs = Nothing
End Sub

Den fjerende nogle rækker og markederede nogle rækker blålig. Hvad betyder det at de bliver blålig?

Betyder ikke noget andet end at de er markeret.
Forsvandt dubletterne ?

ja send et svar
og tak for hjælpen

velbekomme :-)