Выделение строки ListBox из входов ComboBox

Question

У меня есть три ComboBox, которые должны действовать как фильтры для данных ListBox, чтобы выделить (или отобразить).Я успешно сделал это для записей, использующих ComboBox1, чтобы выделить ожидаемые данные в столбце 1 ListBox, ОДНАКО, когда я пытаюсь ввести в ComboBox2 (который ссылается на записи в столбце 2 ListBox), он выделяет всю таблицу ListBox.

Я попробовал то, что прикрепил ниже, но это все еще подчеркивает.Я просто вспоминаю VBA, так как я ушел около 2 лет назад, поэтому, пожалуйста, потерпите меня.

Dim i As Integer
Dim j As Integer

Private Sub ComboBox1_Change()
    With UserForm3.ListBox1
    .MultiSelect = fmMultiSelectSingle
    .ListIndex = -1
    .MultiSelect = fmMultiSelectMulti


    For i = 0 To .ListCount - 1
        For j = 0 To .ColumnCount - 1
            If UserForm3.ComboBox1.Text = .Column(j, i) Then
                .ListIndex = i
                .Selected(i) = True
            End If
        Next j
    Next i

End With
End Sub

Private Sub ComboBox2_Change()
With UserForm3.ListBox1
    .MultiSelect = fmMultiSelectSingle
    .ListIndex = -1
    .MultiSelect = fmMultiSelectMulti


    For i = 0 To .ListCount - 1
        For j = 0 To .ColumnCount - 2
            If UserForm3.ComboBox1.Text = .Column(j, i) Then
                .ListIndex = i
                .Selected(i) = True
            End If
        Next j
    Next i

End With
End Sub

Private Sub ComboBox3_Change()
With UserForm3.ListBox1
    .MultiSelect = fmMultiSelectSingle
    .ListIndex = -1
    .MultiSelect = fmMultiSelectMulti


    For i = 0 To .ListCount - 1
        For j = 0 To .ColumnCount - 3
            If UserForm3.ComboBox1.Text = .Column(j, i) Then
                .ListIndex = i
                .Selected(i) = True
            End If
        Next j
    Next i

End With
End Sub