Subtotals Property Example

This example sets the field that contains the active cell to show Sum subtotals.

Worksheets("Sheet1").Activate
ActiveCell.PivotField.Subtotals(2) = True
Send feedback to MSDN.Look here for MSDN Online resources.