Private Sub ComboBox9_Change()Application.ScreenUpdating = False
Dim a, i As Long, ii As Long, b(), n As Long
ListBox1.Clear
With ComboBox9
If .Text = "" Then Exit Sub
If WorksheetFunction.CountIf(Worksheets("taxi").Range("a:a"), .Text) = 0 Then
Exit Sub
End If
a =...