Sub Test() Dim s As Shape, sg As Shape For Each s In ActivePage.Shapes If s.Type = cdrGroupShape Then For Each sg In s.Shapes If sg.Type = cdrGroupShape Then sg.UngroupAll End If Next sg End If Next sEnd Sub