اخى الكريم استبدل كود التغيير فى التكست بهذا الكود
Private Sub TextBox1_Change()
ListBox1.Clear
For Each f In Range("a1:a100")
x = InStr(1, f.Value, TextBox1.Text)
If x > 0 Then
ListBox1.AddItem f
End If
Next f
L_Count1.Caption = ListBox1.ListCount
End Sub
ستلاحظ انه تم حذف الاسطر من بعد Next f
ووضع هذا السطر بدلا منهم
L_Count1.Caption = ListBox1.ListCount
تقبل تحياتى