** code for %of oChangeField=oPivotTable.AddDataField(oPivotTable.PivotFields("netamt"), "avg_sales") oChangeField.Calculation= 3 && xlPercentOf oChangeField.BaseField="yearname" oChangeField.BaseItem="(previous)"