Sub Test() Dim s As Shape Set s = ActivePage.FindShape("MyRectangle") If Not s Is Nothing Then s.CreateSelection Else ActiveDocument.ClearSelection End IfEnd Sub