Macro to display Tabular View of Active Pivot Table
 

Is there some basic code that would allow me to quickly convert the
active Pivot table to "tabular form" (i.e., the same as choosing
Design Report Layout Show in Tabular Form).

Even better would be displaying the Pivot table in Tabular Form with
no subtotals....but just the above will suffice as well.

Thx for any suggestions...

Macro to display Tabular View of Active Pivot Table
 

Pls check if it helps.Will be expecting your feedback.

-------------------------------------------------------------
Just ensure that you select one cell in PivotTable.
------------------------------------------------------------
Sub SDPivotCustomize()

Dim PT As PivotTable, PC As PivotCell, PF As PivotField

Application.ScreenUpdating = True

Set PC = ActiveCell.PivotCell

Set PT = PC.PivotTable

For Each PF In PT.PivotFields
PF.Subtotals = Array(False, False, _
False, False, False, False, False, _
False, False, False, False, False)
Next PF

PT.RowAxisLayout xlTabularRow

Application.ScreenUpdating = False

End Sub

--------------------------------------------------------------------
Not tried to optimize because much benefit will not be available.
---------------------------------------------------------------------