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