Hi Howard,

Am Mon, 24 Mar 2014 06:46:51 -0700 (PDT) schrieb L. Howard:

I ran the Titles code in your revision and it worked pretty fast, but had about 100 duplicates. I used the "remove duplicates" feature on the Data tab and it found about 100 each time I ran the code and checked.

I ran the Titles code also but I get a maximum of 4 duplicates. The
message of "RemoveDuplicates" is wrong.
Write in B2 (under "Len")
=--(Countif($A$2:$A$12001;A2) and copy down to B12001. After code is
through filter this column for 1.


Regards
Claus B.
--
Vista Ultimate SP2 / Windows7 SP1
Office 2007 Ultimate SP3 / 2010 Prodessional