Try this Mister

Column A must have a header cell

Sub test()
ActiveSheet.Columns("A:A").AdvancedFilter _
Action:=xlFilterCopy, _
CopyToRange:=Sheets("Sheet2").Range("A1"), Unique:=True
End Sub



--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Mister Dolopo" wrote in message ...
How with code would I do an auto filer - unique values and
copy these values to another sheet?

thanks