make sure the control toolbox is available (view--toolbars--control
toolbox
click the green triangle
click the command button icon
draw a command button
right click it and select "view code"
put your code between Private Sub CommandButton1() and End Sub
delete the code from the worksheet event
click the green triangle

If you now click the command button it will run the code.

Hope this was what you requested.

Hans