Sub RemoveItemFromShortcut() On Error Resume Next CommandBars("Cell").Controls("Toggle Word Wrap").DeleteEnd Sub