AutoFiltros y fechas

Saludos.
Muchachos, necesito un poco de ayuda.

¿Cuál es la forma correcta de pasar los parámetros de la función autofiltro,
para el caso de valores de fecha?

Estoy haciendo esto:

'*<*<*<*<*<*<*<*<*<*<*<*<*<*<*<*<*<*<*<*<*<*<*<*<*<*<*<*<*<*<*<
Private Sub Btn_print_repesp_Click()

Dim Fecha_inicial, Fecha_final As Variant

Fecha_inicial = DateValue(reportespecial.DTPicker1.Value)
Fecha_final = DateValue(reportespecial.DTPicker2.Value)
'Más codigo aqui y luego
Selection.AutoFilter Field:=1, Criteria1:=">=" & Fecha_inicial,
Operator:=xlAnd _
, Criteria2:="<=" & Fecha_final

Pero cuando paso a la hoja de Excel, y voy a autofiltro > Personalizar,
las fechas aparecen invertidas... Si seleccioné 01/08/2005 me aparece
08/01/2005.

He probado pasando el parámetro como número (el número de serie
correspondiente a la fecha), pero entonces no filtra nada porque los campos
de la hoja de Excel son fechas.

Sé que estoy haciendo algo mal, lo malo es que no sé que es.

Agradezco su apoyo y su tiempo.