Macro required to reverse another macro?

[Tarqs]

Hi All,

I have this macro which disables the filter functions on a pivot table. I now need another macro which will re-instate or reverse this function. Any help greatly appreciated.

code below to disable below

Sub DisableSelection()
Dim pt As PivotTable
Dim pf As PivotField
Set pt = ActiveSheet.PivotTables(1)  
   For Each pf In pt.PivotFields      
       pf.EnableItemSelection = False  
   Next pf
End Sub


</PRE>

 

[Andrew Poulsom]

Here's a toggle:

Sub ToggleSelection()
    Dim pt As PivotTable
    Dim pf As PivotField
    Set pt = ActiveSheet.PivotTables(1)
    For Each pf In pt.PivotFields
       pf.EnableItemSelection = Not pf.EnableItemSelection
    Next pf
End Sub

 

[Tarqs]

Legend ! Thank you