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