Determining if sheet has grouped rows

[jcg31]

Is there a way of determining if any rows in a sheet are grouped using vba?

I need to write a script that groups rows accoding to new input from a user. I am starting by eliminating all groups.

Cells.Select
Selection.Rows.Ungroup

But it is throwing an error on sheets that don't have any rows grouped. I need to test for a group before running the above code. But don't know how to check.

Any help would be appreciated.
Jim

 

[Hermanito]

you need to use this, adapted to your own worksheet code name:

Sheet1.Rows.ClearOutline

Try not to use Select and Selection, it slows things down...

 

[jcg31]

you need to use this, adapted to your own worksheet code name:

Sheet1.Rows.ClearOutline

Perfect, I had written 12 lines of code to try and accomodate my first approach (looping through each row to determine outline levels). Now I can yank that out.

Many thanks!
Jim