Filter Pivot Table Using a Date Range

[CharlieK86]

Hello,

In my Excel worksheet, I have a pivot table which I want to filter by a given date range. The two dates (From & To) are also on the same worksheet but on a different tab.

I have below macro but it doesn't seem to work. Can anyone please help me?

Dim Pt As PivotTable
Dim PeriodField As PivotField
Dim FD As String 'This is From Date
Dim TD As String 'This is To Date


Set Pt = Worksheets("Pivot Tables_ChargeDetail").PivotTables("CD_DOSTable2")
Set PeriodField = Pt.PivotFields("DOS")

FD = Worksheets("Charge Detail_Working").Range("B1").Value
TD = Worksheets("Charge Detail_Working").Range("B2").Value

With Pt
.PeriodField.ClearAllFilters
With.PeriodField
.PivotFilters.Add Type:=xlDateBetween, Value1:=FD, Value2:=TD
End With
End With