Should be something like:

For Each pvtField In OpivotTable.DataFields
pvtField.Function= xlAverage
Next

>Hello all
>
>#define xlAverage -4106
>
>oPivotTable.PivotFields("avgsal").function = xlAverage fires a oleexception error
>
>Is there any other value for xlAverage ?
>
>txs