Hi

I have searched the web but couldn't find what I was after.

I am trying to write a macro that will change all the fileds selected in
a range of a pivot table. The following is a macro I recorded to get an
idea of what I need to do.

Range("C4").Select
With ActiveSheet.PivotTables("PivotTable1").PivotFields ("Sum of b")
.Function = xlCount
.NumberFormat = "0.00"
End With

How do I tell what pivottable name and assoociated Pivotfields name is
the active cell refering to or the instance within the current selected
range.

I assume I would use the current selection object looping through each
cell until it reaches the end.

ie for each .... in selection
With ActiveSheet.PivotTables(?).PivotFields(?)
.Function = xlSum
.NumberFormat = "$#,##0.00;[Red]-$#,##0.00"
End With


Any help would be appreciated



Regards


Greg