VBA - reset TableName for Pivot Tables

[Justinidea]

When I create a pivot table in Excel 2007, the Table name is incrementally changed with each pivot created. I've been trying to create a pivot table using VBA, but I don't know how to make it work after the first attempt.

TableName:="PivotTable1" doesn't work if I've already created one.

How can I set the "PivotTable2" back to "PivotTable1" so that this code will work? Or... is there something I could substitute in the code to make it generic?

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Pivot_Table_Range", Version:=xlPivotTableVersion12). _
CreatePivotTable TableDestination:="Pivot", TableName:="PivotTable1" _
, DefaultVersion:=xlPivotTableVersion12
​

Thanks!

​