Application VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Application
  4. Adding menu items to shortcut menus
Sub AddItemToShortcut()
    Set NewItem = CommandBars("Cell").Controls.Add
    With NewItem
       .Caption = "Toggle Word Wrap"
       .OnAction = "ToggleWordWrap"
       .BeginGroup = True
    End With
End Sub