in #12 had ik een andere versie voor het verwijderen van dubbels meegestuurd.
De hier gebruikte versie is nog door iemand anders "old school" aangeleverd en bevat wat foutjes.
bv.
- vergelijking is hoofdlettergevoelig
- If Cells(dubbel, 1).Value = tezoeken Then Cells(dubbel, 1).Value = "": Rem dan deze in Kolom 1 wissen
- stukje "herplaats" is "eigenaardig", mogelijks met "verwijderen duplicaten" of "sorteren" had 1 en anders handiger/eenvoudiger geweest.