But how do change the datatype from default xlCount to xlSum using vba code?
I have trying to slot it into the With End With is that possible?

With .PivotFields("venue")
.Orientation = xlRowField
.Position = 1
End With

TIA
johnb