No filtra formato de fecha dd/mm/yyyy

Buenas :

Tengo el siguiente código lo que realiza es filtrar entre dos fechas de combobox que están en un userform y copia los datos a otra hoja ... Mi problema es el siguiente

EJ

Al elegir una fecha que está en el combobox1 =10-04-2014 .... Combobox2 =09-07-2014

este no las trae por que lo esta haciendo como mm/dd/yy y no como dd/mm/yyyy

He probado con format(dStartDate,"dd/mm/yyyy") en donde hago la consulta del

If celda >= dStartDate And celda <= dEndDate And Com0 <> celda.Offset(-1, 1).Value Then

pero no resulta... No se si hay que cambiar la fecha donde cargo los combobox en el código que inserte ahora...Nose!!

Alguien que me preste su ayuda por favor

Gracias de antemano

Sub búsqueda()
Dim dStartDate As Date
Dim dEndDate As Date
Dim i As Long
Dim rango As Range
Dim celda As Range
Dim hj As Object
Dim Com0 As Variant
Dim Com1 As String
Dim Com2 As String
Dim Com3 As String
Dim d As Long
Application.ScreenUpdating = False
Application.EnableEvents = False
Set hj = Hoja5
hj.Range("B3:AX100000").ClearContents
With Hoja5
dStartDate = UserForm3.ComboBox1.Value
dEndDate = UserForm3.ComboBox2.Value
i = Hoja5.Range("B3").Row
If i < 3 Then i = 3
With .Range("B3:AX" & i)
End With
With Hoja2
i = .Range("A65536").End(xlUp).Row
If i < 5 Then i = 5
Set rango = .Range("A5:A" & i)
End With
i = 3
For Each celda In rango
If celda >= dStartDate And celda <= dEndDate And Com0 <> celda.Offset(-1, 1).Value Then
With celda
Com0 = .Offset(0, 1)
Com1 = "": Com2 = "": Com3 = ""
Select Case Com0
Case "A": Com1 = .Offset(0, 93).Value: Com2 = "": Com3 = ""
Case "B": Com1 = "": Com2 = .Offset(-1, 93).Value: Com3 = ""
Case "C": Com1 = "": Com2 = "": Com3 = .Offset(-1, 93).Value
End Select
Hoja5.Range("B" & i & ":AX" & i).Value = Array(.Value, .Offset(0, 3).Value, .Offset(0, 4).Value, _
.Offset(0, 7).Value, .Offset(1, 8).Value, .Offset(1, 9).Value, .Offset(1, 10).Value, _
.Offset(1, 11).Value, .Offset(1, 12).Value, .Offset(1, 13).Value, .Offset(1, 14).Value, .Offset(1, 17).Value, _
.Offset(1, 20).Value, .Offset(1, 21).Value, .Offset(1, 25).Value, _
.Offset(1, 26).Value, .Offset(1, 27).Value, .Offset(1, 28).Value, _
.Offset(1, 29).Value, .Offset(1, 30).Value, .Offset(1, 31).Value, .Offset(1, 32).Value, _
.Offset(1, 35).Value, .Offset(1, 38).Value, .Offset(1, 39).Value, _
.Offset(1, 43).Value, .Offset(1, 44).Value, .Offset(0, 45).Value, _
.Offset(0, 46).Value, .Offset(0, 47).Value, .Offset(0, 51).Value, _
.Offset(1, 52).Value, .Offset(1, 53).Value, .Offset(1, 54).Value, _
.Offset(1, 55).Value, .Offset(1, 56).Value, .Offset(1, 57).Value, .Offset(1, 58).Value, _
.Offset(1, 61).Value, .Offset(1, 64).Value, .Offset(1, 65).Value, _
.Offset(1, 69).Value, .Offset(1, 70).Value, .Offset(1, 71).Value, _
.Offset(0, 75).Value, .Offset(0, 79).Value, .Offset(0, 83).Value, _
.Offset(0, 87).Value, .Offset(0, 91).Value)
End With
i = i + 1
End If
Next celda
End With
Set rango = Nothing
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub