Using Visual Basic 6 (not VBA) and Excel 2000

I have graphics and text grouped together on a worksheet.
I need to update the text.
Trying to ungroup in the follow code I get run time erro 1004 "Application-
defined or object-defined error" from Excel back to VB.

For Each xlWorkSheet In xlWorkbook.Sheets
xlWorkSheet.Select
For I = 1 To xlWorkSheet.Shapes.Count
Shape = xlWorkSheet.Shapes(I)
If Shape.Type = msoGroup Then
Shape.Select
Shape.Ungroup <-- crash and burn here.
End if
Next I
Next xlWorkSheet

help?