Sample Code To Add/delete Custom Menu Items

Option Explicit
Dim cMenu1 As CommandBarControl
Dim cbMainMenuBar As CommandBar
Dim iHelpMenu As Integer
Dim cbcCustomMenu As CommandBarControl

'(2)

Set cbMainMenuBar = Application.CommandBars("Worksheet Menu Bar")

'(4)

Set cbcCustomMenu = cbMainMenuBar.Controls.Add(Type:=msoControlPopup)

'(5) Give the control a caption................

I have created several spreadsheet with customized menus. In step 5 when I type
a period the options for selecting Caption does not appear. In step 6 the 'Control' word didn't appear in list. Sometimes the options in step 6 do appear BUT not the option for Controls. I have created spreadsheets with menus that work but the only way I could do it was to cut and paste from the website and then modify it.