PivotCache.Create unable to handle large Range

Question

This run ok:

Dim pc As PivotCache
With tgtBook.Sheets(\"Data\")
    Set pc = tgtBook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=Range(\"A1:B5\"),         


        

Answer 1

In my experience, it works better if you use an R1C1 style reference rather than a Range object or an A1 style string:

Dim pc As PivotCache
    Set pc = tgtBook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:="Data!R1C1:R500000C2", Version:=Excel.xlPivotTableVersion14)