Ungrouping entire sheet by macro

[Legacy 96851]

Almost made it through the day without asking anything. At least the questions are getting more trivial.

I have a macro that pretty much groups every 6 rows in a couple of worksheets. I want to be able to run the macro multiple times on the same workbook, but as you can imagine, I don't want the grouping to happen again. At the beginning of the code I have

With .UsedRange
        .ClearContents
        .ClearFormats
        .FormatConditions.Delete
        .Ungroup
End With

This, however, doesn't ungroup anything.

Is there a way to A.) ungroup all grouped rows in the sheet or B.) check if a range/row is grouped, something like IsNumeric() but for groups.
Thanks in advance, because I'm sure someone will know!

 

[DonkeyOte]

On Error Resume Next
Sheets("sheet1").Range("A1:IV65536").Ungroup

EDIT: -- error -- doesn't seem to work more than once...below does work...

On Error Resume Next
Cells.Rows.Ungroup
Cells.Columns.Ungroup

 

[Legacy 96851]

Hmm... Still doesn't work the way it should. I think my problem might be that they stay hidden even after ungrouping. Will try undoing that as well.

No, macro still doesn't work at all. I guess it has nothing to do with groups and must be something else in my code being an idiot, though I'm not sure why. Thanks anyway.

 

[DonkeyOte]

can't you just use

Cells.Rows.Hidden = False
Cells.Columns.Hidden = False

to unhide any grouped rows/columns ?

 

[DonkeyOte]

post up your code, it's difficult for us to resolve/assist without it.

 

[Legacy 96851]

Actually, I just figured it out. (it had to do with a wonky conditional statement, though it was mostly the unhiding thing).

Sorry for not posting the code, it was a good two pages long and I didn't think it was worth going through and weeding out all the parts you may or may not need to see in order to help. I do usually try to post it when I can. Thanks for the effort though, you at least clarified that what I thought was wrong wasn't it.