Delete buttons if they exist

[always_confused]

Hello. I would like delete a button if it exists. I cannot find the syntax that allows for the case where it doesn't exist. I would like something like

If “CommandButton1” Exists Then
ActiveSheet.Shapes(“CommandButton1”).Delete
End If

I'm not sure how to write the condition. The Delete part works, but if the button does not exist I get an error because the button to delete cannot be found (which makes sense but I'd like to avoid this for the end user).

 

[Fluff]

How about

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

 

[always_confused]

How about

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

Oh perfect, that's exactly what I needed. Thank you very much

 

[Fluff]

You're welcome & thanks for the feedback.