Sub WorkWithGroupedShapes()
Dim go
Dim shp As Shape
Dim aryShapes As Variant
If TypeName(Selection) = "GroupObject" Then
Set go = Selection 'GroupObject (Stop & explore with Locals window)
For Each shp In ActiveSheet.Shapes(Selection.Name).GroupItems
Debug.Print shp.Name, shp.Type 'see MsoShapeType Enumeration in VBA Help
Next
End If
End Sub