Sub Test() ActivePage.FindShapes(Type:=cdrEllipseShape).CreateSelection ActivePage.FindShapes(Type:=cdrRectangleShape).AddToSelectionEnd Sub