[VBA] Rimuovere item (specifico) da combobox

[DB8]

Buongiorno,

da una combobox (CB) seleziono delle voci che vengono trasferite (aggiunte alla LB e cancellate dalla CB) ad una listbox (LB). Il problema nasce quando cerco di dire al programma che, trasferito un item voglio che si elimino dalla CB anche altri item collegati a quello trasferito.

'Inserisce l'elemento selezionato nel LB2.
ListBox2.AddItem (ComboBox2.Text)


'Rimuove l'elemento da CB2.
ComboBox2.RemoveItem (ComboBox2.ListIndex)


'per ogni riga da 1 a 5....
For i = 1 To Worksheets("Foglio3").Cells(2, 7)
'per ogni elemento della LB...
For j = 0 To ListBox2.ListCount - 1
'se j corrisponde ad uno dei valori contenuti nelle righe della colonna 2 del "foglio3"
If ListBox2.List(j) = Worksheets("Foglio3").Cells(i, 2).Value Then
'se nella CB ci sono elementi della colonna 3 corrispondenti alla riga i allora rimuovili
For z = 0 To ComboBox2.ListCount - 1
If ComboBox2.List(z) = Worksheets("Foglio3").Cells(i, 3).Text Then
ComboBox2.RemoveItem (z)
End If
Next z
End If
Next j
Next i

L'errore me lo da sulla proprietà List evidenziata in rosso: "Impossibile leggere la proprietà List. Indice della matrice di proprietà non valido."

Qualcuno è in grado di aiutarmi? Grazie!

[escocat]

Hai provato con:

For z = 0 To ComboBox2.ListCount - 1
If ComboBox2.Items[z] = Worksheets("Foglio3").Cells(i, 3).Text Then
ComboBox2.RemoveItem (Worksheets("Foglio3").Cells(i, 3).Text)
End If
Next z

oppure con:

For z = 0 To ComboBox2.ListCount - 1
If ComboBox2.Items[z] = Worksheets("Foglio3").Cells(i, 3).Text Then
ComboBox2.RemoveAt (z)
End If
Next z

[DB8]

evidenziando .Items dice "impossibile trovare il metodo o il membro dei dati"...

io utilizzo excel2010, fammi sapere se per aiutarmi ti servono altre info,
altrimenti grazie comunque!