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