VBA Copy Worksheets, Changing Pivot Cache, Run Time Error 5

Originally Posted by CheeseSandwich

I think this:

.ChangePivotCache ThisWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=NewRange)

Needs to be:

.ChangePivotCache wb.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=NewRange)

ThisWorkbook is always the workbook where the code resides.
ActiveWorkbook is the active workbook regardless of where the code resides.
wb in this instance has been defined as ActiveWorkbook so we should use this.

Thanks

.ChangePivotCache wb.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=NewRange)

helped.

I allready thoght that it might be something "small" and "very basic".

The Structure of a code is something I might crasp and I can often tinker my way to a working code. But I really lack gramma. Time for taking some VBA training lessions :-)

Again, thanks for the awesome and fast help

Kind Regards