Good morning all,
I use the following code to disable the cell chortcut menu:

Sub CellMenuCustomize()
Dim SCCellMenu As CommandBar
On Error Resume Next
On Error GoTo 0
Set SCCellMenu = CommandBars("Cell")
SCCellMenu.Reset
SCCellMenu.Enabled = False
End Sub

I use the following code to re-enable it:

Sub CellMenuReset()
Application.CommandBars("Cell").Enabled = True
Application.CommandBars("Cell").Reset
End Sub

However, when I run the disabling code and right click on a cell, I see a
small pale blue square with nothing written in it, and when I run the
enabling code, I STILL only see the square - the menu doesn't reset.
Can anyone tell me what I'm doing wrong?
Thanks in advance.

Pete