Unikke værdier

Det må vel så betyde at værdier som kun findes 1 gang slettes ?
Koden markerer forløbig de værdier som skal slettes

Sub SletUnikke()

Dim rng As Range
Dim rng2 As Range
Set rng = Sheets("Ark1").Range("A1:A100") ' ret til aktuel område her

For Each c In rng
  If WorksheetFunction.CountIf(rng, c.Value) = 1 Then
    If rng2 Is Nothing Then
      Set rng2 = c
      Else
      Set rng2 = Application.Union(rng2, c)
    End If
  End If
Next

rng2.Select

End Sub

?

Tak excelent beklager den sene tilbagemelding