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