VBA Listbox - Unique Items

[nooro]

i'm adding items to an excel listbox control, and want only to add those that are unique i.e not in the list already - probably a stupid question, but does anyone have any thoughts?

 

[RobBroekhuis]

What kind of listbox (on a form, from the control toolbox, or from the forms toolbar)?
Rob

 

[nooro]

yep, apologies, think before speak is a good idea ^^ It's on a form

 

[RobBroekhuis]

I think this should do the trick:

Sub AddUniqueItem(cbx as combobox,strItem as string)
dim i as integer
for i=0 to cbx.listcount-1
if ucase(strItem)=ucase(cbx.list(i)) then exit sub
next i
cbx.additem strItem
end sub

Rob

 

[nooro]

many many thanks