Vb søg efter dubletter

http://www.eksperten.dk/spm/459663

Næsten men den skal være på fast kolonne. ellers vil brugerne lave et Alt:/format :S

Er der ikke bare sådan!?

Public Sub SletDubletter()
Rowcount = Cells(65536, 7).End(xlUp).Row
Range(Cells(1, 7), Cells(65536, 7).End(xlUp)).Select
For I = 1 To Rowcount
If Cells(I, 7).Interior.ColorIndex <> 3 Or Cells(I, 7) <> "" Then
For I1 = I + 1 To Rowcount
If Cells(I, 7) = Cells(I1, 7) Then
Cells(I1, 7).EntireRow.Delete Shift:=xlUp
End If
Next
End If
Next
End Sub

Arr nej den skal den skal så gå en celle ned for hver værdi så der ikke er nogle værdier som der er to af...

Jo den virker...

Smid et svar x-lars

Gerne! Godt, at det virkede!