Mi formulario de búsqueda en vba se queda colgado

¿Elsa cómo estas? Espero que bien con el favor de dios, te cuento que cree un formulario de búsqueda en VBA, mi cuadro es de 10 columnas y una base de datos creciente, al darle buscar se me queda colgado al colocar la primera letra. Yo pienso que es por la cantidad de datos que ya pasan los mil, me podrías ayudar con eso por favor. Espero su pronta respuesta mil gracias este es el código que utilice:

Private Sub texto_Change()

numerodedatos = Hoja2.Range("C" & Rows.Count).End(xlUp).Row
Me.lista = Clear
Me.lista.RowSource = Clear
y = 0

For fila = 9 To numerodedatos
descripcion = Hoja2.Cells(fila, 3).Value
If UCase(descripcion) Like "*" & UCase(Me.texto.Value) & "*" Then
Me.lista.AddItem
Me.lista.List(y, 0) = Hoja2.Cells(fila, 1).Value
Me.lista.List(y, 1) = Hoja2.Cells(fila, 2).Value
Me.lista.List(y, 2) = Hoja2.Cells(fila, 3).Value
Me.lista.List(y, 3) = Hoja2.Cells(fila, 4).Value
Me.lista.List(y, 4) = Hoja2.Cells(fila, 5).Value
Me.lista.List(y, 5) = Hoja2.Cells(fila, 6).Value
Me.lista.List(y, 6) = Hoja2.Cells(fila, 7).Value
Me.lista.List(y, 7) = Hoja2.Cells(fila, 8).Value
Me.lista.List(y, 8) = Hoja2.Cells(fila, 9).Value
Me.lista.List(y, 9) = Hoja2.Cells(fila, 10).Value

y = y + 1

End If

Next
End Sub

Private Sub UserForm_Activate()
Me.lista.RowSource = "INVENTARIO"
Me.lista.ColumnCount = 10

End Sub