Update pivot table report filter using cell value
 

Please point a VBA beginner in the right direction:

I want the code below to update the pivot table based on the cell value in
"C5" of a worksheet named "Dates".

Can this be done by amending the last line of recorded code below?

Windows("VDN Daily.xlsm").Activate

ActiveSheet.PivotTables("PivotTable1").PivotFields ( _
"[Record Date].[Date].[Date]").ClearAllFilters

ActiveSheet.PivotTables("PivotTable1").PivotFields ( _
"[Record Date].[Date].[Date]").CurrentPageName = _
"[Record Date].[Date].&[2010-02-27T00:00:00]"

Thanks for any help.

David