Macro to expand retract grouping

[nparsons75]

Is there a way to use a macro to open or close grouping instead of pressing the 1 or 2 or + / - on the left?

I would like a button as part of my menu system to recreate?

Thanks,

 

[pbornemeier]

Once you have established your subtotals use this code to set a particular level (3 in this case):

ActiveSheet.Outline.ShowLevels RowLevels:=3