Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
sub un_group_data()
With Sheet1
On Error Resume Next
' expand all groups on sheet
.Outline.ShowLevels RowLevels:=8
' remove any existing groups
.Rows.Ungroup
On Error GoTo 0
End with
end sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.