ColumnGrand Property
True if the PivotTable report shows grand totals for columns. Read/write Boolean.
Example
This example sets the PivotTable report to show grand totals for columns.
Set pvtTable = Worksheets("Sheet1").Range("A3").PivotTable
pvtTable.ColumnGrand = True