ColumnGrand Property Example

This example sets the PivotTable report to show grand totals for columns.

Set pvtTable = Worksheets("Sheet1").Range("A3").PivotTable
pvtTable.ColumnGrand = True