For c1 = 0 To ComboBox.ListCount - 1
If Instr(1,ComboBox.List(c1) ,"<New Item",vbTextcompare) Then
ComboBox.RemoveItem c1
exit for
End If
Next c1

--
Regards,
Tom Ogilvy

"ajliaks" wrote in message
...

Hi all,

I have a combo box full of data. One of the data is "<New Item". I
want to locate, and erase that value from the list.
I am trying the code below, but getting sintax error.
Can anybody help? Thanks in advance, Aldo.

For c1 = 0 To ComboBox.ListCount
If ComboBox.Value(c1) = "<New Item" Then
ComboBox(c1).clear
exit for
End If
Next c1


--
ajliaks
------------------------------------------------------------------------
ajliaks's Profile:
http://www.excelforum.com/member.php...fo&userid=8196
View this thread: http://www.excelforum.com/showthread...hreadid=274501