Creating multiple pivot tables from one PivotCache

Wow, according to this no one has ever done this before, or been able to do this before. I am surprised.

Guess I will be the first.

I need to do it using VBA, so there is no prompt that pops up to which one can say Yes.

Right now the only way I know to do it is to copy the sheet, then alter the pivot table, which can be fraught with problems. Thus, I am seeking code to do it.

AHA!

Just because no one ever explained how to do it before, it CAN be done.

ActiveWorkbook.PivotCaches(1).CreatePivotTable

This will create a new pivot table, with pre-existing cache #1

Want to know what details are in each cache?

Sub CacheList()
Dim pc As PivotCache
Dim wsList As Worksheet
Dim lRow As Long
lRow = 2
Set wsList = Worksheets.Add
For Each pc In ActiveWorkbook.PivotCaches
  wsList.Cells(lRow, 1).Value = pc.Index
  wsList.Cells(lRow, 2).Value = pc.SourceData
  lRow = lRow + 1
Next pc
End Sub

I hope this helps someone.