Right click menu

[Mats.Bergstrand]

Does someone have an idea why this doesn´t work?
I had a crash and had to reinstall Excel.
When trying to add controls again to my right click menu I get an error
on the line .OnAction stating
"Fault nr '-2147467259 (80004005)'.:
The method 'OnAction' in the object '_CommandBarButton' failed"

By adding On error resume next I can read that
..OnAction had become the value .OnAction = ""


Set Newitem3 = CommandBars("Cell").Controls.Add
With Newitem3
.Caption = "Klistra in summa"
.OnAction = "Klistra_in_summa"
End With

Any help appriciated as I find the right click menues very helpful

Mats Bergstrand