Corregir un formulario para búsqueda

Tengo un formulario para búsqueda copié el código de internet y logré hacerlo funcionar de no se que manera y ahora tengo el detalle que al ejecutar me da el error 1004 de objeto global, este formulario debería buscar a través de un textbox y arrojar el dato seleccionado para después ser seleccionado y mediante un botón ser depositado en una celda específica, y ahora nada de eso funciona, les agradecería me ayudaran a solucionar mi error.

Anexo el código que uso, además agrego que uso excel 2010, el rango lista está ubicado en la hoja 4.

Private Sub txtbusqueda_Change()

If Me.txtbusqueda.Value = "" Or Me.txtbusqueda.Value = " " Then
Me.Height = 83

Else
Me.Height = 160
Dim rng As Range, e
Set LISTA = Range("lista")
With Me
.ListBox1.Clear

For Each i In LISTA.Value
If (i <> "") * (i Like "*" & .txtbusqueda.Value & "*") Then
.ListBox1.AddItem i
End If
Next i

End With
End If
End Sub