Hi,

I am trying to delete a shape from a sheet with:

ActiveSheet.Shapes("AAPicture").Select
Selection.Delete

I need to verify first that the shape exists so the user wont get an
error that the object doesnt exists.

How can i do that?

Thanks,

Hi vandaley

One way is to use on error

On Error Resume Next
ActiveSheet.Shapes("AAPicture").Delete
On Error GoTo 0


--
Regards Ron de Bruin
http://www.rondebruin.nl



"vandaley" wrote in message ups.com...
Hi,

I am trying to delete a shape from a sheet with:

ActiveSheet.Shapes("AAPicture").Select
Selection.Delete

I need to verify first that the shape exists so the user wont get an
error that the object doesnt exists.

How can i do that?

Thanks,

Hi,

how about this one:

Dim s As Shape
For Each s In ActiveSheet.Shapes
If s.Name = "Test" Then
MsgBox "shape Test exists"
exit for
End If
Next

"Name" seems to be case sensitive.

--
Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"

Thanks ,

Seems to do the trick.
Ron de Bruin wrote:
Hi vandaley

One way is to use on error

On Error Resume Next
ActiveSheet.Shapes("AAPicture").Delete
On Error GoTo 0


--
Regards Ron de Bruin
http://www.rondebruin.nl



"vandaley" wrote in message ups.com...
Hi,

I am trying to delete a shape from a sheet with:

ActiveSheet.Shapes("AAPicture").Select
Selection.Delete

I need to verify first that the shape exists so the user wont get an
error that the object doesnt exists.

How can i do that?

Thanks,