Hi,



You use some thing like this:



Worksheets("X").PivotTables("Y").DataFields(1).Cal culation= xlSum


--
JP

http://www.solutionsvba.com


"Sugith Kumar" wrote in message
...
I have a code as follows in a VB Subroutine.

With .PivotFields("Next Quarter")
.Orientation =4
.Position = 7
End With

the problem is, the field "Next Quarter" is coming
as "Count of" field instead of "Sum of". So all the values
in this field are distorted. How do I force this field
to "Sum of"? Any idea?

A quick reply is appreciable.

Thanks
Sugith