Article ID: 182717
Article Last Modified on 11/23/2006
Shortcut menu xlConstant -------------------------------- Button xlButton Drawing object xlDrawingObject Text box xlTextBox
Sub AddCustom()
Application.ShortcutMenus(xlWorksheetCell).MenuItems.Add _
Caption:="C1"
End Sub
If you want to delete the same menu item, you would use the following code:
Sub DelCustom()
Application.ShortcutMenus(xlWorksheetCell).MenuItems("C1").Delete
End Sub
Additional query words: XL98
Keywords: kbbug kbdtacode KB182717