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