Is it possible to add to or delete objects from a group of drawing objects. If yes then what is the syntax?
This does not work
For Each shp In ActiveSheet.Shapes
For Each sshp In shp.GroupItems
Select Case Left(sshp.Name, InStr(sshp.Name, " ") - 1)
Case "Oval": sshp.Delete