Need Macro to remove all grouping

[floridagunner]

I need a macro that will do away with all grouping on a worksheet. I was using the following code to remove all row groupings from my worksheet:

Cells.Select
Selection.Rows.Ungroup
Selection.Rows.Ungroup

This was working fine when I had spreadsheets with only two groups of rows. But I now have spreadsheets with multiple row groups ranging from 2-8.

I tried the code listed on a question posted previously here:

http://www.mrexcel.com/forum/showthread.php?t=373642

Sheets("YourSheet").Outline.ShowLevels 8

However this solution simply unhides all grouped rows. What I need to do is

REMOVE ANY AND ALL GROUPING THAT MAY EXIST ON THE WORKSHEET.

Hope someone can help me.

Thanks
floridagunner

 

[hiker95]

floridagunner,

Can you give us a sample workbook, with one worksheet containing column and row groups, and with any other groupings you may be using?


You can upload your workbook to Box Net,

sensitive data scrubbed/removed/changed

mark the workbook for sharing
and provide us with a link to your workbook.