Deleting Command Button

When using the following code I receive an
error...ActiveSheet.Shapes("CommandButton1").Delete

I am assuming it is becuase I have placed this code within the event
CommandButton1_Click(). I would like to get this to work becuase after I
execute my other code I am self desctructing the code and the button.

Help is greatly appreciated!

Try this:

Private Sub CommandButton1_Click()
Application.OnTime Now, "KillCmdbtn"
End Sub

and in a regular module:

Sub KillCmdBtn()
ActiveSheet.Shapes("CommandButton1").Delete
End Sub

--
Jim Rech
Excel MVP
"James W." <[email protected]> wrote in message
news:[email protected]...
| When using the following code I receive an
| error...ActiveSheet.Shapes("CommandButton1").Delete
|
| I am assuming it is becuase I have placed this code within the event
| CommandButton1_Click(). I would like to get this to work becuase after I
| execute my other code I am self desctructing the code and the button.
|
| Help is greatly appreciated!