Excel 1 Listbox NO responde al filtrar

Tengo un userform y mediante una referencia en Textbox1, me filtran 2 listbox los datos que quiero. El problema es que el primero responde bien y el segundo no.

El Listbox1, responde a la hoja 3 y la referencia del Textbox1 esta en el Columna A.

El listbox2, responde a la hoja 7 y la referencia del Texbox1 (mismo dato que Col A) se encuentra en la Columna C.

Listbox1 filtra sin problemas, pero el listbox2, no lo hace. ¿Qué estoy haciendo mal?

ListBox1. Clear
ListBox1.ColumnCount = 5
For I = 5 To Hoja3.Range("A" & Rows.Count).End(xlUp).Row
Cadena = (Hoja3.Cells(I, 1).Value)
If Cadena Like "*" & UCase(TextBox1.Value) & "*" Then
ListBox1. AddItem Hoja3.Cells(I, 1)
ListBox1. List(ListBox1.ListCount - 1, 1) = Hoja3.Cells(I, 2)
ListBox1. List(ListBox1.ListCount - 1, 2) = Hoja3.Cells(I, 3)
ListBox1. List(ListBox1.ListCount - 1, 3) = Hoja3.Cells(I, 4)
ListBox1. List(ListBox1.ListCount - 1, 4) = Hoja3.Cells(I, 5)
End If
Next I

ListBox2.Clear
ListBox2.ColumnCount = 6
For G = 6 To Hoja7.Range("C" & Rows.Count).End(xlUp).Row
Cadena2 = (Hoja7.Cells(G, 1).Value)
If Cadena2 Like "*" & UCase(TextBox1.Value) & "*" Then
ListBox2. AddItem Hoja7.Cells(G, 1)
ListBox2. List(ListBox2.ListCount - 1, 1) = Hoja7.Cells(G, 2)
ListBox2. List(ListBox2.ListCount - 1, 2) = Hoja7.Cells(G, 3)
ListBox2. List(ListBox2.ListCount - 1, 3) = Hoja7.Cells(G, 4)
ListBox2. List(ListBox2.ListCount - 1, 4) = Hoja7.Cells(G, 5)
ListBox2. List(ListBox2.ListCount - 1, 5) = Hoja7.Cells(G, 6)
End If
Next G