..maybe just add this line to Bernie's code..
ActiveSheet.[A:A].RemoveDuplicates Columns:=1, Header:=xlNo
zeddy