Listbox additem ile alınan verileri çoklu silme

[beza]

Merhaba,
Listbox1 içerisine additem ile alına veriler textbox2 değerine göre çoklu seçiliyor.
seçilen veriler sayfa12 ve listbox1 den silinecek. Sayfadan silebiliyorum, ancak
listbox1 içerisinden silerken hata veriyor. Doğru şekilde yazamadım.
İlgili kodları aşağıya ekledim.
Bu kodlara istediğim düzenleme yapılabilir mi? Teşekkür ederim.
ListBox1.MultiSelect = 1
For i = 0 To ListBox1.ListCount - 1
If ListBox1.List(i) = TextBox2.Text Then
ListBox1.Selected(i) = True
End If
Next

For z = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(z) = True Then
Sayfa12.Cells(z + 2, 7) = "x"
End If
Next
For c = Sayfa12.Range("A150000").End(xlUp).Row To 2 Step -1
If Sayfa12.Cells(c, 7) = "x" Then
Sayfa12.Rows(c).Delete

=================================================
LİSTBOX1 DEN DE SİLECEK KOMUTLARI BURAYA DOĞRU EKLEYEMEDİM.
=================================================

End If
ListBox2.Clear
Next
End Sub

 

[Muzaffer Ali]

Merhaba.
Oraya ListBox1.RemoveItem c satırını ekleyin

 

[beza]

Muzaffer Ali Bey Merhaba,
Gönderdiğiniz kodu yazdığımda 2 satır kayıyordu. -2 eklediğimde sorun düzeldi. Ayırdığınız zaman ve cevap için teşekkür ederim.