Deleting Command Button

[Guest]

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!

 

[Jim Rech]

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
| 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!