Pivot Table Multiple RowFields Problems

I have a pivot table with six different Row Labels. (Calling them Cat1, Cat2, etc.)
Row Labels 1-5 are Expanded, Row Label 6 is Collapsed by default.

What I am trying to do is go through and and Expand only those Rows in Cat6 that meet a given criteria (in the code below designated "TestObject").

Sub Test()
    With ActiveSheet.PivotTables("Table")
        Dim pvtfield1, pvtfield2, pvtfield3, pvtfield4, pvtfield5 As PivotField
        Dim pvtitem1, pvtitem2, pvtitem3, pvtitem4, pvtitem5  As PivotItem
        For Each pvtitem4 In .RowFields("Cat5").PivotItems
            For Each pvtitem5 In .PivotFields("Cat6").PivotItems
                    If pvtitem5.Name <> "TestObject" And pvtitem5.RecordCount > 0 Then
                        .PivotFields("Cat5").PivotItems(pvtitem4.Name).ShowDetail = True
                    End If
            Next pvtitem5
        Next pvtitem4
    End With
    Application.StatusBar = Null
End Sub

This code is Expanding everything, however, which defeats the purpose.


Essentially, I need to find a way to pin down the specific combination of Cat1 through Cat5 and specify that particular Cat6 to Expand, but my knowledge is limited.

Ok, another attempt that isn't panning out.

Sub Test()
    With ActiveSheet.PivotTables("PivotTable")
        Dim pvtfield1, pvtfield2, pvtfield3, pvtfield4, pvtfield5 As PivotField
        Dim pvtitem1, pvtitem2, pvtitem3, pvtitem4, pvtitem5, pvtitem6  As PivotItem
        For Each pvtitem1 In .RowFields("Cat1").PivotItems
        For Each pvtitem2 In .RowFields("Cat2").PivotItems
        For Each pvtitem3 In .RowFields("Cat3").PivotItems
        For Each pvtitem4 In .RowFields("Cat4").PivotItems
        For Each pvtitem5 In .RowFields("Cat5").PivotItems
        For Each pvtitem6 In .RowFields("Cat6").PivotItems
'            On Error Resume Next
            Temp = .GetPivotData("BALANCE", "Cat1", pvtitem1.Name, "Cat2", pvtitem2.Name, "Cat3", pvtitem3.Name, "Cat4", pvtitem4.Name, "Cat5", pvtitem5.Name, "Cat6", pvtitem6.Name).Value
            If pvtitem5.Name <> "TestObject" And .GetPivotData("BALANCE", "Cat1", pvtitem1.Name, "Cat2", pvtitem2.Name, "Cat3", pvtitem3.Name, "Cat4", pvtitem4.Name, "Cat5", pvtitem5.Name, "Cat6", pvtitem6.Name).Value <> 0 Then
                Stop
            End If
'            On Error GoTo 0
        Next pvtitem6
        Next pvtitem5
        Next pvtitem4
        Next pvtitem3
        Next pvtitem2
        Next pvtitem1
    End With
    Application.StatusBar = Null
End Sub

Keeps breaking on the first .GetPivotData

Anybody?