When I run the below macro all rows are hidden even though when I click into the filter and reapply (I don't change the text just press enter). I have also made sure that the data is formatted appropriately. Any help is greatly appreciated! 

```
 Sub Dates()
    '
    ' Dates Macro
    '
    Dim todaysdate As Date
    Dim ITTrecieved As Date
    Dim greaterthan
    greaterthan = ">="
    todaysdate = Format(Date, "dd/mm/yyyy")
    todaysdate = CDbl(todaysdate)

    ITTrecieved = DateSerial(Year(todaysdate), Month(todaysdate) - 2, Day(todaysdate))
    ITTrecieved = CDbl(ITTrecieved)

'
        ActiveSheet.Range("F3").AutoFilter Field:=5, _
            Criteria1:=">=" & ITTrecieved, Operator:=xlFilterValues

        ActiveSheet.Range("H3").AutoFilter Field:=7, _
            Criteria1:=">=" & todaysdate, Operator:=xlFilterValues

End Sub

```