Filtrar datos de una hoja con textbox VBA

1) Crear una hoja como se muestra.

2) Agregar un control TextBox1. 

3) Dar doble clic en el y agregamos el siguiente código.

Private Sub TextBox1_Change()
strfiltro = "*" & Hoja1.TextBox1.Text & "*"
Hoja1.Range("A4").AutoFilter field:=1, Criteria1:=strfiltro
End Sub 

Hoja1 para filtrar datos desde un textbox