Используйте TextBox для фильтрации проблемы сценария Listbox

Question

У меня есть интерфейс UserForm со списком из 20 столбцов и текстовым полем, мне нужно tanta, когда я набираю текстовое поле, слово ищется в каждом столбце и строке, а результат строки отображается в listbox1. Я поместил этот код, но когда я добавляю скрипт второго столбца, он еще не работает.

В двух словах: мне нужно найти результат ключевого слова, помещенного в текстовое поле1 в 20 столбце, и поместить результат в список1

Большое спасибо

    Private Sub Textbox1_Change()

            Dim o As Long
            Dim arrList As Variant

            Me.ListBox1.Clear
If Worksheets(“Sheet1”).Range("A" & Worksheets(“Sheet1”). Rows.Count).End(xlUp).Row > 1 And Trim(Me.TextBox1.Value) <> vbNullString Then arrList = Worksheets(“Sheet1”). Range("A1:A" & Worksheets(“Sheet1”).Range("A" & Worksheets(“Sheet1”).Rows.Count).End(xlUp).Row).Value2

If Worksheets(“Sheet1”).Range("B" & Worksheets(“Sheet1”). Rows.Count).End(xlUp).Row > 1 And Trim(Me.TextBox1.Value) <> vbNullString Then arrList = Worksheets(“Sheet1”). Range("B1:" & Worksheets(“Sheet1”).Range("A" & Worksheets(“Sheet1”).Rows.Count).End(xlUp).Row).Value2

For o = LBound(arrList) To UBound(arrList)
If InStr(1, arrList(o, 1), Trim(Me.TextBox1.Value), vbTextCompare) Then
 Me.ListBox1.AddItem arrList(o, 1)
                    End If
                Next o
            End If
            If Me.ListBox1.ListCount = 1 Then Me.ListBox1.Selected(0) = True

        End Sub