collapsing grouped columns...

[sadams1]

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 are fully expanded.

Is is possible to collapse each subgroup so when expanded they are still collapsed & have to be individually expanded?

 

[Greg Truby]

Just walk your way up the levels:

Sub TotalCollapse()
   With ActiveSheet.Outline
        .ShowLevels ColumnLevels:=4
        .ShowLevels ColumnLevels:=3
        .ShowLevels ColumnLevels:=2
        .ShowLevels ColumnLevels:=1
    End With
End Sub

Sub LoopedCollapse()
    For i = 4 To 1 Step -1
        ActiveSheet.Outline.ShowLevels ColumnLevels:=i
    Next i
End Sub

 

[sadams1]

just walk your way up the levels:

sub totalcollapse()
   with activesheet.outline
        .showlevels columnlevels:=4
        .showlevels columnlevels:=3
        .showlevels columnlevels:=2
        .showlevels columnlevels:=1
    end with
end sub

sub loopedcollapse()
    for i = 4 to 1 step -1
        activesheet.outline.showlevels columnlevels:=i
    next i
end sub

sweet! Thank you!