Try...

Option Explicit


Private Sub ComboBox1_Change()
Dim n&
With ListBox1
For n = (.ListCount - 1) To 0 Step -1
If .List(n, 2) = ComboBox1.Text Then .RemoveItem (n)
Next 'n
End With 'ListBox1
End Sub

Private Sub UserForm_Initialize()
ComboBox1.List = Array("DLR", "DIS", "SUP")
Dim vListData
vListData = ActiveSheet.Range("A1:C10") '//edit to suit
ListBox1.List = vListData
End Sub

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion