Check for Grouping and Ungroup
 

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.

Check for Grouping and Ungroup
 

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 ,
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.

Check for Grouping and Ungroup
 

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.

Check for Grouping and Ungroup
 

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.

Check for Grouping and Ungroup
 

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 ,
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.