Sub AddItemToShortcut() Set NewItem = CommandBars("Cell").Controls.Add With NewItem .Caption = "Toggle Word Wrap" .OnAction = "ToggleWordWrap" .BeginGroup = True End With End Sub