I have not done what you are attempting, however it may help to specify the
specific application you are referring to - You are in a Word application and
trying to make an Excel application do something, so try ...
Change Application.CommandBars to Excel.Application.CommandBars
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)



"ARHangel"
wrote in message
I have an excel embeded in a word. I edit the excel in-place and i want when
the user tries to open the context menu to show another context menu. But an
error appears: Run-time error '-2147467259 (80004005)':

Method 'Add' of Object '_CommandBars' failed

Here is the method:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)
Dim myBar As CommandBar
Dim barOpen As CommandBarButton
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''
' This is where i get that error
Set myBar = Application.CommandBars.Add(Name:="MyCustomButton" ,
Position:=msoBarMenuBar, temporary:=True)
'''''''''''''''''''''''''''''''''''''''''''''''''
Set barOpen = myBar.Controls.Add(Type:=msoControlButton, ID:=1,
temporary:=True)
With barOpen
.Caption = "Open"
.OnAction = "Sheet1.Open"
End With
End Sub

Is there a way to do this? Do you have another solution?
Thanks