VBA code to ungroup multiple groupings

[CM4@FL]

For example: Say I have a spreadsheet with 3 layers of row grouping.

Currently I'm using the following code to ungroup all 3 layers, which works
for the this particular example.
Selection.Rows.Ungroup
Selection.Rows.Ungroup
Selection.Rows.Ungroup

Unfortunately the spreadsheet in question does not always have 3 layers of
grouping, it may have more it may have less. Which either cause the VBA to
error or not remove all the groupings. Is there any coding that will remove
all groupings within a worksheet without reference to the # of layers?

Thanks in advance!

 

[Bob Umlas]

Sub BruteForce()
On Error Resume Next
For I=1 to 8
Selection.Rows.Ungroup
Next
End Sub

 

[Charlie]

On Error GoTo done
Do While Rows.Ungroup
Loop
done:

 

[Rick Rothstein]

How many groupings do you have? Are you trying to get rid of them all? Does
this, perhaps, do what you want?

Selection.Rows.ClearOutline

 

[Charlie]

Hey Rick,

I didn't understand your post under "VBA mid() function" on 11/2/09. Did I
miss something?

 

[Rick Rothstein]

I responded to your message back in the original thread... are you saying
you can't see it? Here it is again...

"No, you didn't miss anything... I did. Sorry for the confusion,
but apparently I misread the original post and then made
my comment based on my misreading."

 

[Charlie]

Thanks. No, it never posted. Or at least I can't find it. I thought I was
losing my mind. (Again.)