Sub GroupObjects()
 ActiveSheet.DrawingObjects.Select
 Selection.ShapeRange.Group.Select
End Sub