This is quite slow, but it works:

Sub dupdel()
Set rdel = Nothing
Set ra = Range("A1:A1631")
Set rb = Range("B1:B384")
For Each rra In ra
v = rra.Value
For Each rrb In rb
If rrb.Value = v Then
If rdel Is Nothing Then
Set rdel = rra
Else
Set rdel = Union(rdel, rra)
End If
End If
Next
Next
rdel.Delete Shift:=xlUp
End Sub
--
Gary''s Student - gsnu2007h


"Candy" wrote:

I Have a range of Numbers

in Col A ( A1 : A1631 )

in Col B ( B1 : B384 )

I want to delete duplicates that appear in Col A from Col B then delete Col
B

Thus leaving Col A with unique records.

Thanks

In Advance

Karen.