Sub Test() Dim s As Shape Set s = ActiveLayer.FindShape(Name:="Frame", Type:=cdrRectangleShape) If s Is Nothing Then MsgBox "The rectangle 'Frame' cannot be found on layer " & ActiveLayer.Name Else s.CreateSelection End IfEnd Sub