One way:

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

Goto 0 resets the error handler to the default.

In article ,
"Pedro" wrote:

Hi
I have the following code:
ActiveSheet.Shapes("SectorSplit").Select
Selection.Delete

What code should I add in order that if the Shape does not exist it goes to
line2

Best Regards,
Pedro