Check for Grouping and Ungroup

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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
 
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
 
Ooops! You said *sheet* grouping....not outline grouping.
My apologies.

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

XL2002, WinXP
 
Thanks. Worked great.

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

Thanks.
 
Back
Top