Unknown Error Message

S

S. S.

I am running the following code:

ActiveSheet.Buttons.Add(481.5, 15, 87.75, 47.25).Select
Selection.OnAction = "ThisWorkbook.CommandButton1_Click"
Selection.Characters.Text = "Sort and Print"

Whenever the action gets to this part of the code it
creates an error message that says "400". Does anyone
know what this means?

Thanks

SS
 
T

Tom Ogilvy

You adding a button from the forms toolbar and tying it to a event macro for
a control toolbox toolbar commandbutton. You should rename you macro and
put it in a general module. Assume the macros name is

Sub btn_click()

End sub

Dim btn as Button
set btn = ActiveSheet.Buttons.Add(481.5, 15, 87.75, 47.25)
btn.OnAction = "btn_click"
btn.Caption = "Sort and Print"
 
Top