@p45cal --
I wanted to see how you got the PT's source data onto a new worksheet in the new workbook
This seems to be where the magic happens, but the online help for .ShowDetail doesn't talk to it
With NewPT.DataBodyRange .Cells(.Rows.Count, .Columns.Count).ShowDetail = True 'create a reduced data source for the pivot End With
Can you explain a little, please?