Hi Mick,

Am Sat, 2 Jul 2011 21:58:08 +1000 schrieb Vacuum Sealed:

So, for each cName in myRng I need to copy the name into
Sheets("Data").Column ("A").

I would use advanced filter to copy unique names to DS:

DS.Select
SS.Columns("A:A").AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("A1"), Unique:=True


Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2