Shape.ParentGroup (Excel)

Returns a Shape object that represents the common parent shape of a child shape or a range of child shapes.

Dim shp As Shape: Set shp = 
Dim shpParentGroup As Shape
Set shpParentGroup = shp.ParentGroup