I need to check for sheet grouping and if grouped ungroup in VB. I can't
find how to test or reset other than on the page. Thanks.

One way:

Public Sub try()
With ActiveWindow.SelectedSheets
If .Count > 1 Then
MsgBox "Ungrouping sheets"
.Item(1).Select Replace:=True
End If
End With
End Sub


In article <64533524-72E6-49DC-88D7-(E-Mail Removed)>,
Troubled User <(E-Mail Removed)> wrote:

> I need to check for sheet grouping and if grouped ungroup in VB. I can't
> find how to test or reset other than on the page. Thanks.

How about just clearing the outline.
If Grouping is ON, it will be turned off.
If it's already OFF....nothing happens.

Worksheets("Sheet1").UsedRange.ClearOutline

Is that something you can work with?
***********
Regards,
Ron

XL2002, WinXP


"Troubled User" wrote:

> I need to check for sheet grouping and if grouped ungroup in VB. I can't
> find how to test or reset other than on the page. Thanks.
>
>

Ooops! You said *sheet* grouping....not outline grouping.
My apologies.

***********
Regards,
Ron

XL2002, WinXP


"Troubled User" wrote:

> I need to check for sheet grouping and if grouped ungroup in VB. I can't
> find how to test or reset other than on the page. Thanks.
>
>

Thanks. Worked great.

Any chance I could get you to look at my post entitled "Printing Assembled
Array Using Sheet Names"

Thanks.


"JE McGimpsey" wrote:

> One way:
>
> Public Sub try()
> With ActiveWindow.SelectedSheets
> If .Count > 1 Then
> MsgBox "Ungrouping sheets"
> .Item(1).Select Replace:=True
> End If
> End With
> End Sub
>
>
> In article <64533524-72E6-49DC-88D7-(E-Mail Removed)>,
> Troubled User <(E-Mail Removed)> wrote:
>
> > I need to check for sheet grouping and if grouped ungroup in VB. I can't
> > find how to test or reset other than on the page. Thanks.
>