Unexpected behaviour from pivotfield.drilleddown property

[Mightystomp]

I am trying to make a macro that toggles expand/collapse pivotfield Profit Center

Sub ExpandCollapse()

Dim pt As PivotTable
Dim pf As PivotField


Set pt = ActiveSheet.PivotTables("PivotSAPBO")
Set pf = pt.PivotFields("[SAPBO].[Profit Center].[Profit Center]")


If pf.DrilledDown = False Then
    
    pf.DrilledDown = True

Else

    pf.DrilledDown = False
    
End If

End Sub

The problem is that pf.drilleddown returns false every time even if it has just been set to true. One can even put pf.drilleddown = true in line before and it still returns false.


I am using Excel 2013 and the pivottable is based on a table from Power Pivot.

 

[Razorman]

I'm still trying to do the same as this in 2024 and amazingly can't find any answers

It seems impossible to bring back the DrilledDown property into a variable.

You can create separate Macros to expand or collapse the PivotField.
But when you use an if statement, then it ALWAYS brings back "False" on the DrilledDown property.