【VBA】グループ化の解除を全ての図形に対して行う方法

Sub UngroupAllShape()
    '''アクティブシート上のすべての図形に対してグループ化を解除
    
    Dim existGroup As Boolean
    
    ''existGroupがTrueの間はループ処理する
    Do
        existGroup = False 'フラグの初期化
        
        Dim oneShp As Shape
        For Each oneShp In ActiveSheet.Shapes
            
            ''グループ化されているか判定
            If oneShp.Type = msoGroup Then
                
                'グループ解除かつフラグをTrueに
                oneShp.Ungroup
                existGroup = True
            End If
        Next
        
        ''グループ化されたオブジェクトが1つもない⇒ループ処理終了
        If existGroup = False Then Exit Do
    Loop
End Sub

                'グループ解除かつフラグをTrueに
                oneShp.Ungroup
                existGroup = True