Function Property Example
This example sets the Sum of 1994 field in the first PivotTable report on the active sheet to use the SUM function.
ActiveSheet.PivotTables("PivotTable1") _ .PivotFields("Sum of 1994").Function = xlSum