Remove all Pivot table rows

[Molden]

Hi all,

Does anyone know how to unselect the fields in the rows selection in a pivot table.

Ive removed all fields in the pivot table but I would like to keep whats in the value and columns?

Thanks

 

[Domenic]

The following macro assumes that the active sheet contains the pivottable, and that the pivottable is named "PivotTabe1"...

Option Explicit

Sub HideRowFields()


    Dim pt As PivotTable
    Dim pf As PivotField
    
    Set pt = ActiveSheet.PivotTables("PivotTable1")
    
    For Each pf In pt.PivotFields
        If pf.Orientation = xlRowField Then
            pf.Orientation = xlHidden
        End If
    Next pf
    
    Set pt = Nothing
    Set pf = Nothing
    
End Sub

Hope this helps!