Adding command bar button

[mikeymay]

I am using the following code to add the 'Zoom' button to a command bar

Set cbtnESPReport = cbarESPReport.Controls.Add(Type:=msoControlComboBox, ID:=1733, Before:=5)

but when this execute I get a run time error 13, which can be bypassed by executing the 'Resume' command in an error handler, and the button is added to the command bar.

I am a bit curious why this is happening as I got the code from recording a macro so I would have assumed it is a valid command.

Thanks

 

[Domenic]

Does this help?

Set cbtnESPReport = cbarESPReport.Controls.Add(ID:=1733, Before:=5)