Try downloading the PivotPlay add-in from Debra Dalgleish's website:
http://www.contextures.com/xlPivotPlay01.html

The vba code in PivotPlay is unprotected.

Post back with questions.

Does that help?
***********
Regards,
Ron

XL2002, WinXP


"Tim879" wrote:

I would like to write a macro to change the source data of a pivot
table. I have all of the other code written, I just cannot figure out
what code I need to get the current pivot table's data source or how
to define a new data source.

Any help would be much appreciated.