Copy Filtered section of a Pivot Table into a new document

[Lolo Mertens]

Hello,

I was wondering how I could copy a filtered selection of a pivot table into a new document WITHOUT having the possibility to reset the filter in the new document.
Example: Into the pivot table I select one customer "X" with the sales evolution per month. I Copy that selection into a new document that I could share with him but I don't want to give him the possibility to select other customers.
Thanks for helping me!

 

[Worf]

Hello and welcome to the Board

Sub PvtAd()
Dim pv As PivotTable
Set pv = ActiveSheet.PivotTables("Pivot1")
Range(pv.TableRange1.Address).CopyPicture
Workbooks.Add
ActiveWorkbook.Worksheets(1).Paste
End Sub