Deleting menu items from shortcut menus
Sub RemoveItemFromShortcut() On Error Resume Next CommandBars("Cell").Controls("Toggle Word Wrap").Delete End Sub