I found this:
Sub Collapse_All()mp
ActiveSheet.Outline.ShowLevels RowLevels:=1, ColumnLevels:=1
End Sub
However, when expanding the groups, they are still expanded.
For example, there are 5 groups expanded. They get collapsed with the above code. The 2nd group is expanded & all subgroups...