Here is the situation:

Every worksheet has 12 pivottables for 12 months.

ActiveSheet.PivotTables("PivotTable1").PivotFields ("Jan-06")
ActiveSheet.PivotTables("PivotTable1").PivotFields ("Feb-06")

I want to re-use this model for 2007.

How could I update the PivotFields to
ActiveSheet.PivotTables("PivotTable1").PivotFields ("Jan-07")
ActiveSheet.PivotTables("PivotTable1").PivotFields ("Feb-07")

Thanks in advance.

H.Z.