Is is possible to tag or name a PivotCache?

[Glory]

I’m swapping the source range of a pivot table using this method:
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o> </o>
1) Creating a new pivot table on the same line the new cache is created;
2) Inserting no fields;
3) Reassigning the new cache as the cache of the old table; then,
4) Removing the new table.
<o> </o>
The problem is that when I do this more than once, the new cache begins to bump the older cache up, taking its position for the duration of the code’s execution.
<o> </o>
CacheIndex 5 becomes 6, and the new cache takes position 5.
<o> </o>
So I’m looking for a way to name caches the way you can name some other objects. Is there any way to do this?
<o> </o>
Or is there any simpler way to change the source range of an existing pivot table?

 

[Glory]

ExcessPages = 1
 
ThisWorkbook.PivotCaches.Add _
    (SourceType:=xlDatabase, _
    SourceData:=Sheets("Sum Error").Range("A:J")) _
    .CreatePivotTable _
    TableDestination:=ThisWorkbook.Sheets("Sum Error Pivot" &
 ExcessPages).Range("D1"), _
    TableName:="Table2"
 
[B][I]Table2Cache[/I][/B] = ThisWorkbook.Sheets("Sum Error Pivot" & _     
    ExcessPages).PivotTables("Table2").CacheIndex
 
ThisWorkbook.Sheets("Sum Error Pivot" & _
    ExcessPages).PivotTables(2).CacheIndex = [B][I]Table2Cache[/I][/B]

ThisWorkbook.Sheets("Sum Error Pivot" & _
    ExcessPages).Range"D1:E2").Clear

I can refer to each of the placeholder tables by name. So I'm just setting a variable with the placeholder table's cacheindex, and using that.