Ungrouping macro

I need a macro to ungroup large amounts of groups within groups. This is what I have made so far. The problem I am running into is that I can't seem to get it to follow any logic to end the Do loop other then the counter down below but if I do to many step throughs then it errors out the macro.  I can't seem to get myself to accept the error. How can I fix what I am doing wrong? Any help would be greatly appreciated.

Sub UngroupItall()

Dim GroupedShapes As Shape
Dim SelectedArea As ShapeRange
Dim Variable01 As Variant
Set SelectedArea = ActiveSelectionRange

For Each GroupedShapes In SelectedArea
    Do Until Variable01 = 100
    If GroupedShapes.Type = cdrGroupShape Then
        ab = ab + 1
        GroupedShapes.UngroupAll
    End If
    Loop
   
Next GroupedShapes

End Sub