tm, if you just want to delete the button use something like this
Private Sub CommandButton1_Click()
Range("A1") = "test"
ActiveSheet.Shapes("CommandButton1").Delete
End Sub
--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003