Excel Add-In: how to position custom toolbar

For my personal.xls everything works fine.  It's when I add it to my XLA add-in it doesn't work.  I'm no longer using my personal.xls.  I currently only have VBA code for my menus in my XLA.  No code yet for my custom toolbar.  So, without having any VBA code for custom toolbar, it shows up on a separate line.  Someone told me that I should not attach the toolbar.  Instead I should create the entire custom toolbar via VBA code, in the same way I'm creating the menu in VBA.

i think that if you add the code i sent you earlier in your xla file, (in its Workbook object) it will work ok. can you try it?

I tried it but it does the same thing.

please try the following code:

Private Sub Workbook_AddinInstall()
Application.CommandBars("custom 1").Visible = True
Application.CommandBars("custom 1").Position = msoBarTop
End Sub

Should work now. i created a custom toolbar (Custom 1). i then created a xla addin and inserted this code into the Workbook object of this xla. when i checked on the addin under tools/addins menu and pressed ok, the custom toolbar appeared next to standard toolbar. please note the if the addin is currently installed you will need to uncheck it first and press ok, and then install it again.

Good Luck!

Same result!  Toolbar still being created on a separate line.  I'm wondering if my problem has to do with that I "attached" the toolbar originally to import it to my addin.  You see, the reason I attached the toolbar is so that I wouldn't have to re-create the toolbar from scratch within the spreadsheet I saved as an addin.  The reason is that I didn't want to have to draw my custom toolbar icons again.  You can see how the toolbar gets added here: http://imgbolt.com/public/35108/toolbar.jpg

Hey, that was great advise.  Just before I read your response I was thinking about another solution that would "reset" the location of the toolbar.  Instead of just positioning the toolbar on the top using:
        Application.CommandBars(szToolBar).Position = msoBarTop
I added another statement to first put it on the right side, hoping that would reset the toolbar.  Then I added the "top" statement and it worked like a charm like this:
        Application.CommandBars(szToolBar).Position = msoBarRight
        Application.CommandBars(szToolBar).Position = msoBarTop

Your solution makes it even more explicit and I tried it and that works great.  You have a few more conditions that made Excel flicker for a millisecond so once I added the Application.ScreenUpdating = False/True statement it worked great.  Thank you for your help.  I can't belive how fast you've responded to my questions.  Awesome!