Macro Filtrar Fechas no se ejecuta

Si algún experto me puede ayudar:

Tengo una macro que debe realizar el filtro de fechas a una hoja por medio de 2 textbox en un formulario, pero al ejecutarlo no realiza el filtro esconde todos los datos de la hoja sin mostrar nada. Esta es la macro:

If TextBox1 = "" And TextBox2 = "" Then
MsgBox "Ingrese Fechas ...!!!"
Else
Sheets("Entradas").Activate
Range("A1").AutoFilter field:=1, Criteria1:=">=" & Format(TextBox1, "dd/mm/yyyy") _
, Operator:=xlAnd, Criteria2:="<=" & Format(TextBox2, "dd/mm/yyyy")

End If

¿Cuál es el error?...