Datafilteradvanced filterunique

Sample macro
lr = Cells(Rows.Count, "a").End(xlUp).Row
Range(Cells(1, "d"), Cells(lr, "e")).ClearContents
Range("A1:A" & lr).AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("D1"), Unique:=True

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Newfie809" wrote in message
...
I have a spreadsheet that lists 3600 employees and because some of these
employees work at different locations they are listed more that once, but
I
also need the same list on a different spreadsheet but only show that
employee name appears only once. Is there a formula that would extract
each
employee and only show once on the second spreadsheet.

Thanks
--
Newfie