Excel 2007 Macro specific table to generic table?

[Sue]

I have a statement below with "PivotTable5" - How do I make that a generic
pivot table to where it would work with any pivot highlighted?

With ActiveSheet.PivotTables("PivotTable5").PivotFields("Sum of Duration")
.Calculation = xlPercentOfColumn
.NumberFormat = "0%"

 

[Roger Govier]

Hi Sue

Try
With
ActiveSheet.PivotTables(1).PivotFields("Sum of Duration") _
.Calculation = xlPercentOfColumn
.NumberFormat = "0%"
End With


Assuming there is only 1 pivot table on the active sheet

 

[Sue]

Roger,
I have two pivots on the active sheet. I want to highlight the pivot value
area and then change the format. Is there any way to make the selected pivot
(generic - any active pivotTable) the only one I will change the format?--
Sue

 

[Roger Govier]

Hi Sue

The following appears to work fine for me when I select a cell within the PT
first

Dim myname As String

With ActiveSheet
myname = ActiveCell.PivotTable()
End With
With ActiveSheet.PivotTables(myname).PivotFields("Sum of Duration") _
.Calculation = xlPercentOfColumn
.NumberFormat = "0%"
End With

--
Regards
Roger Govier

Roger,
I have two pivots on the active sheet. I want to highlight the pivot value
area and then change the format. Is there any way to make the selected
pivot
(generic - any active pivotTable) the only one I will change the format?--
Sue