VBA =GetPivotData() producing runtime error 1004

I All,

I have a sub called SumTBCs that loops through sheets where the sheet name begins 'SLA...' and adds up any pivot table subtotals where the pivot table result is "TBC"

It was working I'm sure.
But now it works intermittently.

I've attached a sample workbook to test

TBCs Example.png

There's no "TBC" results in SLA1 to test.

Running the first sub in sheet 'SLA2' produces a MsgBox displaying '7' which is correct

Running the second sub in sheet 'SLA3' produces a runtime error 1004?

I thought perhaps the sheet was corrupt so I removed it and created it again by copying SLA2, but it made no difference.

Any advice greatly appreciated,
All the best
V

That table is on a different sheet and is now 2 in the pivottable collection

Please Login or Register  to view this content.