Filter ud fra celleværdi, dato

Utestet:
ActiveSheet.Range("$A$1:$T$1000").AutoFilter Field:=14, Criteria1:= _
        "<="&range("U1").value, Operator:=xlAnd

men der kan være noget med formatet (om det opfattes som værdi eller dato), det kan være en fordel af lave det til en variabel som er formatteret korrekt - igen dette er 100 % utestet:

Øverst i din kode:
Dim datDato as date
datDato=range("U1").value

Hov, og så bruge det sådan:
ActiveSheet.Range("$A$1:$T$1000").AutoFilter Field:=14, Criteria1:= _
        "<=" & datDato, Operator:=xlAnd

Det virker desværre ikke

Det virker desværre ikke, den viser slet ingen datoer

Hvilken løsning brugte du?
Kan du uploade en version af arket til dropbox eller lignende, så kan vi bedre hjælpe med at forstå hvad fejlen er.
Jeg vil tro det er noget med om det opfattes korrekt.

Jeg har prøvet alle løsninger, desværre uden held. Det viser sig også at den makro jeg indspillede med datoen ikke fungere korrekt. For når jeg kører den er der ingen datoer vist, alt bliver skjult. Lidt mystisk.
Jeg kan desværre ikke oploade filen da den indeholder kundespecifikke oplysninger.
Tak for hjælpen til alle der har brugt tid på det.

Jeg har fundet denne løsning og den virker
Sub DatoFilter()
    Dim lngStart As Long, lngEnd As Long
    lngStart = Range("T1").Value 'Start dato
    lngEnd = Range("U1").Value 'Slut dato
    Range("A1:T1000").AutoFilter field:=14, _
        Criteria1:=">=" & lngStart, _
        Operator:=xlAnd, _
        Criteria2:="<=" & lngEnd
End Sub

God viden, at sætte det til long er en fordel.