Slette dubletter i Excel 2003

Hej
Findes der en funktion hvor man kan slette dubletter i et område, jeg ved der findes i excel 2007, men jeg skal lave et program som kan bruges i 2003.

Det skal være en del af en VBA kode.

Jeg har lavet et lille forsøg i 2003, kan det laves mere hensigtsmæssigt? Evt. med et array?

Forestil Jer, at i de ark koden bruger er det kun Kolonne A den arbejder i. På hvert ark i Kolonne A står der en masse medarejder ID, ikke alle IDer er i hvert ark. Meningen med koden er at jeg skal lave en liste over alle IDer.

Jeg skal bruge denne liste i en anden kode.

Private Sub prøve()
Dim Medarbområde As Range

Worksheets("vagtfordeling").Cells.Delete

For Each WS In ThisWorkbook.Worksheets
    If Not WS.Name = "Time-oversigt" Xor WS.Name = "Skillset" Xor WS.Name = "Headcount" Xor WS.Name = "Vagtfordeling" Then
        WS.Select
       
        Aend = Range("A65000").End(xlUp).Row
       
        Set Medarbområde = Range(Cells(3, 1), Cells(Aend, 1))
       
        Medarbområde.Select
        Selection.Copy
        Sheets("Vagtfordeling").Select
        Worksheets("Vagtfordeling").Range("a65000").End(xlUp).Offset(1, 0).Select
        ActiveSheet.Paste

        Worksheets("vagtfordeling").Cells.ClearFormats
    End If
Next WS

With Worksheets("Vagtfordeling")
    Aend = Range("A65000").End(xlUp).Row
    Range(Cells(2, 1), Cells(Aend, 1)).RemoveDuplicates Columns:=1, Header:=xlNo
End With

End Sub