Rango de fechas

Hola,

necesito de su valiosa ayuda ya que tengo un formulario con dos textbox y requiero que el ingresar los datos y ejecutarlo con un botón me filtre los datos que tengo en una hoja de excel (hoja1). Tengo un código pero no me filtra las fechas me queda la hoja en blanco

Dim dato1 As String
Dim dato2 As String
Dato1 = TextBox4.Value
Dato2 = TextBox5.Value
If dato1 <> "" Then
If dato2 <> "" Then
fecha1 =TextBox4.Value
fecha2 =TextBox5.Value
fecha1 =Format(fecha1, "mm/dd/yyyy")
fecha2 =Format(fecha2, "mm/dd/yyyy")
Sheets("hoja1").Range("a1").AutoFilter
Field:=1, Criteria1:=">=" & fecha1, Operator:=xlAnd,
Criteria2:="<=" & fecha2
End If
End If
End sub

No se que pueda estar pasando; te agradecería tu ayuda