Pivot Cache VBA code - Application-defined or Object Defined error

Please Login or Register  to view this content.

This gives me an error: "Application-defined or Object Defined error"

Debug shows it is failing on this line: pt.CacheIndex = ptO.CacheIndex

I am using this code from a site. It has worked for me in the past. I have one Pivot Table called "PivotTable3" on a worksheet called "Pivot". I want all the other pivots in my workbook to use the same cache as PivotTable3.

Help!

EDIT: I solved this on my own by using different code that would identify the pivot table cache that was being used when selecting a pivot and pressing CTRL+P. I was able to identify which pivots used the wrong cache and just had to delete them, then copy/paste from an existing pivot. Not the perfect solution, but I got the job done. Thanks!