Change field(s) for all Pivot Tables in active sheet

Hello all,

I was wondering if anyone might direct me to some lovely VBA to do the following:

I have several dozen (hundreds?) of pivot tables, each with three fields I will need to change.

For example, one sheet will have lots of pivot tables with the fields "Customer ID, Monday, Tuesday, Wednesday", and the next sheet will have "Customer ID, Thursday, Friday, Saturday".

What I'm hoping to do is copy the first sheet, and then run a macro that goes "replace Monday for Thursday, Tuesday for Friday, Wednesday for Saturday"*

All tables would refer to the same data source.

Any ideas on how to do this? I'm not looking forward to manually re-creating a couple hundred of these...

Many thanks in advance for anyone who can point in the right direction!


*(dummy data; not actually dealing with weekdays)

Hi,

Are the fields you are trying to replace data fields, or row/column/filter fields?

Here is an example- change the array to match the actual field names.

Please Login or Register  to view this content.