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.