Quickie... How to change a name with a macro?

[pauloreiss]

I have the following object:
ActiveSheet.PivotTables("Table Number 5").PivotCache.Refresh

I would like to change the name of this PivotTable.

But the macro will do this in many different files with different PivotTable names, and i want them all to be the same!

There is only one pivottable for each file. The would open the file, activate the table in that sheet and change it to the standart name.

Somebody help, plz!

[funkymonkUK]

try

x = Table Number 5

ActiveSheet.PivotTables(x).PivotCache.Refresh

if u need to change the name just type

x= sample

so now it should be

ActiveSheet.PivotTables("Sample").PivotCache.Refresh