You can just reset the command to factory defaults:
Type:
Application.CommandBars("Cell").Reset
in the Immediate window.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting
www.cpearson.com
(email on the web site)


"Pflugs" wrote in message
...
I accidentally deleted the Insert command from my cell menu, and I can't
seem
to get it back. Here's my code:

Sub getInsertBack()
Dim myBar As CommandBar
Dim myButton As CommandBarButton
Set myBar = Application.CommandBars("cell")
Set myButton = myBar.Controls.add(msoControlButton, 3181, , 6)
End Sub

I keep getting a run-time error saying the add method has failed. The
code
looks correct. Can someone help?

Thanks,
Pflugs