Hello Swieduwi,

You didn't delcare "nodupes" as a collection. You never see an error
because of the "On Error Resume Next" statement, which you need to
check for duplicates in the collection.

Add Dim nodupes As New Collection at the begining of your code.

Sincerely,
Leith Ross


--
Leith Ross
------------------------------------------------------------------------
Leith Ross's Profile: http://www.excelforum.com/member.php...o&userid=18465
View this thread: http://www.excelforum.com/showthread...hreadid=380191