Buscar item de un listbox mediante un TextBox

Tengo un archivo que baje de excel, en el cual se puede buscar un item del listbox y lo hace bien; pero a la hora de aplicarlo a mi archivo o proyecto me da un error el cual es el siguiente:

"Se ha producido el error -2147467259(80004005)en tiempo de ejecución
Error no especificado"

me da el mismo problema que el anterior, el archivo es el mismo que envié al usuario DAM, el cual no quise hacer hacer dos consultas al mismo tiempo.Hice alguna modificaciones, pero siempre me sale el mismo problema.

el código que aplico y que funciona bien en el archivo que bajé, pero no en el mío es el siguiente:

Private Sub BtnBuscar_Click() 'BOTÓN BUSCAR
L..Clear 'L ES EL LISTBOX
Texto = "*" & xTexto & "*" 'TEXTBOX xTexto ES EL TEXTO A BUSCAR
Range("A4").Activate
Do Until ActiveCell = ""
fTexto = "" 'fTexto es para definir las filas es como filtrar
For y = 2 To 11: fTexto = fTexto & ActiveCell.Offset(0, y - 2): Next 'de 2 a 9 columnas
If (fTexto) Like (Texto) Then
L.AddItem
For y = 2 To 10: L.List(L.ListCount - 1, y - 2) = ActiveCell.Offset(0, y - 2): Next
L.List(L.ListCount - 1, 10) = ActiveCell.Row
End If
ActiveCell.Offset(1, 0).Activate
Loop
End Sub