Sub MakeUnique()'put a header in row 1
With Range("M1:M" & Cells(Rows.Count, "m").End(xlUp).Row)
.AdvancedFilter Action:=xlFilterInPlace, Unique:=True
.Copy Range("n1")
ActiveSheet.ShowAllData
End With
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"David T" wrote in message
...
I have a list of items in column A and I need to create a drop down list in
column B that excludes any duplicate data. Does anyone have a macro that
can do this?

Column A Column B
apple {drop down list inserted here}
pears
orange
apple
orange