Clearing row labels in a pivot table

[FindAnswers]

I am trying to create 5 different macros with respective buttons at the top of the PivotTable screen that say Category, SubCat, Brand, SubBrand, and SKU. Whenever I click Category I want excel to bring only the category into the row labels section, when I click SubCat I want SubCat in the row labels section, etc.

I have recorded all 5, but when switching back and forth between the buttons, it does not clear the row label that was there before.

Is there VBA code or something I can put before each macro to clear the existing row labels section, so only the row I want to be included will show?

Or is there a simple function that says "clear row labels?"

I appreciate the help!

[AlphaFrog]

Something like this will clear all the row labels...

    Dim pf As PivotField
    For Each pf In ActiveSheet.PivotTables("PivotTable1").PivotFields
        If pf.Orientation = xlRowField Then pf.Orientation = xlHidden
    Next pf

[FindAnswers]

Thank you so much that works perfectly!