Hide Pivot Table Subtotals Using Macros In Excel

Make sure your Excel has the Developer Tab enabled following this tutorial.

I explain how you can do this below step by step!

What does it do?

Hide the Pivot Table subtotals

Copy Source Code:

</p>
<p>'Select a cell first from your pivot table<br />
Sub HidePivotTableSubtotals()</p>
<p>Dim pTable As PivotTable<br />
Dim pField As PivotField</p>
<p>On Error Resume Next</p>
<p>'Get the pivot table first<br />
Set pTable = ActiveSheet.PivotTables(ActiveCell.PivotTable.name)</p>
<p>'Check if a pivot table is found<br />
If pTable Is Nothing Then<br />
MsgBox &amp;quot;Please select a cell first from your Pivot Table.&amp;quot;<br />
Exit Sub<br />
End If</p>
<p>'For each subtotal, make it hidden<br />
For Each pField In pTable.PivotFields<br />
pField.Subtotals(1) = True<br />
pField.Subtotals(1) = False<br />
Next pField</p>
<p>End Sub</p>
<p>

Final Result: 

Exercise Workbook:

Download excel workbookHide-Pivot-Table-Subtotals.xlsm

This is our Pivot Table and we want to hide these subtotals:

STEP 1: Go to Developer > Code > Visual Basic

STEP 2: Paste in your code and Select Save. Close the window afterwards.

STEP 3: Let us test it out!

Open the sheet containing the data. Go to Developer > Code > Macros

Make sure your pivot table and macro are selected. Click Run.

With just one click, your Pivot Table subtotals are now hidden!

How to Hide Pivot Table Subtotals Using Macros In Excel

Bryan

Bryan Hong is an IT Software Developer for more than 10 years and has the following certifications: Microsoft Certified Professional Developer (MCPD): Web Developer, Microsoft Certified Technology Specialist (MCTS): Windows Applications, Microsoft Certified Systems Engineer (MCSE) and Microsoft Certified Systems Administrator (MCSA).

He is also an Amazon #1 bestselling author of 4 Microsoft Excel books and a teacher of Microsoft Excel & Office at the MyExecelOnline Academy Online Course.