Pivot > Showall data in rows field

[ChrisAcheson]

Hi All

In rows field, I have 'Reason'

is any one able to help 'show all data' which splits out my reason codes, and each tab represents code 1, 2,3,4 etc?

Thank you.

With ActiveSheet.PivotTables("PivotTable1").PivotFields("ReasonCode")
        .Orientation = xlRowField
        .Position = 1
    End With

[Bob Phillips]

Bit scarce on details!

Did you try doing it with the macro recorder on?