Pivot > show all data

[ChrisAcheson]

With ActiveSheet.PivotTables("PivotTable4").PivotFields("ReasonDescription")
        .Orientation = xlRowField
        .Position = 1
    End With

Hi

I am trying to work out, how to show tresults of each header on this pivo on a new tab per description.

Any help ould be appreciated.

Thank You.

[mana]

ActiveSheet.PivotTables("PivotTable4").ClearAllFilters