From: Louise on
I have a worksheet called Front where there is a field populated with a date
in dd/mm/yyy format (in cell B10).
On this worksheet I have a button which runs the below code and should look
at a worksheet called Pivots which contains 10 pivot tables. I need the code
to change the Page value of each of these pivots to the date populated in
cell B10 on the Front worksheet.
The source data and the pivot has the date in the same format as each other
and the Pivots are named PivotTable6 etc etc...

Sheets("Pivots").Select
ActiveSheet.PivotTables("PivotTable6").PivotFields("Invoice
Month").CurrentPage = ActiveSheet.Range("B10").Value

When I run this code it give me an error advising:

Unable to set the _Default property of the Pivot Item class

Any ideas appreciated as his is driving me crazy!

Thanks!
From: Herbert Seidenberg on
Excel 2007 PivotTable
Filter multiple PT page fields.
Select criteria from Table drop-downs.
http://c0718892.cdn.cloudfiles.rackspacecloud.com/04_22_10.xlsm
Pdf preview:
http://www.mediafire.com/file/kn51u0iznmy/04_22_10.pdf