Application VisualBasic Script

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