Update date range in Pivot table based on two cell references UK dates

[MuppetReaper]

Hi

I am trying to write some code to update a pivot based on dates in two other cells, all my dates are UK formatted, but I can not get it to work - any ideas please, it's driving me nuts -
the two dates are DateFrom = 25/11/2014 and SatDate = 03/10/2015

Sub MondayUpdates()
    
    DateFrom = Range("Dates!C16")
    SatDate = Range("Dates!C7")
    Sheets("Exceptions").Select
        ActiveSheet.PivotTables("PivotTable1").PivotFields("scan_date_all").PivotFilters. _
       Add Type:=xlDateBetween, Value1:=DateFrom, Value2:=SatDate
End Sub

 

[MuppetReaper]

sorry to bump, but does anyone have any ideas? I'm sure the issue is with the fact that it's UK dates as I have tried recording a macro just to select a few dates from the pivot table, butn then when I try to rerun that, even that doesn't work!

Sub Macro3()
    Sheets("Exceptions").Select
    ActiveSheet.PivotTables("PivotTable1").PivotFields("scan_date_all"). _
        CurrentPage = "(All)"
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("scan_date_all")
        .PivotItems("25/11/2014").Visible = True
        .PivotItems("18/12/2014").Visible = True
        .PivotItems("22/12/2014").Visible = True
    End With
End Sub

 

[MuppetReaper]

Hi all
after much playing oround I've actually found a solution and thought I'd post it here, in case it was useful for anyone else, so sorry for replying to my own thread so many times!
First I made sure that the date format in the pivot is set as date (UK) and the 3rd option down - 14/03/2001
the macro still doesn't work if you don't do that first
Then I just had to make the date in the macro have quotes around it and hey presto!!

    Sheets("Exceptions").Select
    For i = 0 To 10
        ScanDate = Range("Dates!C9") - i
        On Error Resume Next
        ScanDate = "" & ScanDate & ""
        ActiveSheet.PivotTables("PivotTable1").PivotFields("scan_date_all"). _
            CurrentPage = "(All)"
        With ActiveSheet.PivotTables("PivotTable1").PivotFields("scan_date_all")
            .PivotItems(ScanDate).Visible = True
        End With
    Next i
    Err.Clear