Using VBA to change PivotTable field view/function

[karl04]

I have a pivot table in my workbook. I would like to change the PivotTable Field function to VarP using a macro but receive an error when it runs.
I recorded the macro and then tried to run the code but the following error appears:
"Unable to get the PivotFields property of the PivotTable class"

The code given by the recorder is:

Range("A3").Select
         ActiveSheet.PivotTables("PivotTable1").PivotFields("Varp of Full Cost"). _
         Function = xlVarP

I need to change to the variance so that I can check for any discrepancies (i.e. if variance is not 0 then there is a problem)

I hope some can help or suggest any easier way to perform this.

 

[karl04]

To answer my own question.....

You can use the following code to set the function of a Pivot Table where the top left-hand cell of the table is A3.

Range("A3").Select
ActiveCell.PivotField.Function = xlVarP

Replace xlVarP with whatever function you wish to use such as - xlSum, xlCount or xlAverages.