Hi

Sub Macro1()
MsgBox CommandBars(1).Name
End Sub
returns "Worksheet Menu Bar" on my computer. So it's probably not up for much fun and
dance. But you should be able to address the one you want by using it's name:
MsgBox CommandBars("Drawing").Name

--
HTH. Best wishes Harald
Followup to newsgroup only please.

"Jim" wrote in message
. ..
I have an old application written in Excel 95 VBA and have had to change
the old Toolbar property over to CommandBars, but I am finding that
runtime error 5 for invalid procedure is been invoked the xlTop line.
I can't find a way around this one.
Many thanks
Jim

With CommandBars(1)
.Position = xlTop
.Left = 0
End With