Hi Chris

I think the problem with your code is you are trying to move the 'Sum
of Value'. The pivot item is 'Value'. If you change the code
slightly so you move the value field, so;

With ActiveSheet.PivotTables("PivotTable1").PivotFields ("Value")
.Position = 1
End With

This should work...... Hope it helps.


Take care

Marcus