Remove Duplicated items in combo box

Originally Posted by Cheeky Charlie

How's this?

sub populate
Range(Range("A1"), Range("A1").End(xlDown)).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("P1"), Unique:=True
UserForm1.ComboBox1.RowSource = Range(Range("P2"), Range("P" & Rows.Count).End(xlUp)).Address
UserForm1.Show
end sub

I used column P (fairly arbitrarily) to create a unique filter of column A which I then used as rowsource for your combobox.

HTH

Superb Code Worked Really well for me