Sub Test() Dim s As Shape For Each s In ActiveSelection.Shapes If s.Type = cdrRectangleShape Then s.Selected = False Next s End Sub