Run Time error 5 when running commandbar in 2003

Question

I am new to vba so I'm not sure what the error messages mean, but I keep getting this "run-time error '5': invalid procedure call or argument" whenever I run the macro.  I select debug and found that this line is causing the error - "Set mybar = Application.CommandBars.Add(Name:="My Macro", Position:=msoControlButton, Temporary:=True)", but I can' figure out what is wrong with it.  It seems to execute this line even after the error message appears.  Here is the entire code:

Dim mybar As Object, newcontrol As Object

Set mybar = Application.CommandBars.Add(Name:="My Macro", Position:=msoControlButton, Temporary:=True)

Set newcontrol = mybar.Controls.Add(Type:=msoControlButton, ID _

        :=2950, Before:=1)

newcontrol.OnAction = "reducetime"

mybar.Visible = True

It's suppose to create a custom command button in the ribbons in excel 2003, and it actually works but the error always appears when it executes.

Thanks,

Nate

Answer 1

The other option is that you are trying to add a control that already exists??

Add code to delete old toolbars or at least an On Error Resume Next

Before the lines to add command bar

On Error Resume Next 'in case it's not there

Application.CommandBars("MyMacro").Delete

Answer 2

Do you have another link?  I can not view with my browser.

Answer 3

Download this AddIn:

http://dl.dropbox.com/u/35239054/CSV.xla

Look into the code module "DieseArbeitsmappe" into Sub MakeMenu.

See this as working example. It creates temporary items in the file menu and context menu of the cells (right click a cell).

Andreas.

Answer 4

I try using the Position arguments that you suggested but I'm still getting the same error when I run my macro.

Answer 5

The type of argument Position is MsoBarPosition, you try to use a constant from MsoControlType.

Open the VBA editor, read the help to CommandBars.Add, especially on the argument Position.

In the VBA editor,press F2 to open the object catalog, enter "MsoBarPosition" in the second combobox from above and click the search button.

Andreas.