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.