@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?