Unknown Error Message

  • Thread starter Thread starter S. S.
  • Start date Start date
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
 
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"
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Button Problem 2
Adding ToolTip to a button 2
Help Excel 2003 code failing in 2007 12
Button Text Problem 1
Button on condition 2
Ron de Bruin - Merge cells from all worksheets 0
Adding module - assigning macro to button 1
VBA to create button on sheet after copy and to change the caption 7

Back
Top