Filtrer mellem 2 datoer

Hej
Jeg har denne filter funktion, men den virker ikke, nogen der kan gennemskue hvad der er galt.
Sub FilterTimer()
    Dim lngStart As Long, lngEnd As Long
    lngStart = Range("O1").Value 'assume this is the start date
    lngEnd = Range("P1").Value 'assume this is the end date
    Range("E1:E" & Range("A" & Rows.Count).End(xlUp).Row).AutoFilter field:=1, _
        Criteria1:=">=" & lngStart, _
        Operator:=xlAnd, _
        Criteria2:="<=" & lngEnd
End Sub