Видалення підменю з командного рядка - excel, vba, excel-vba

Я створив підменю в excel vba на своїй таблиці даних. Ось код,

Set cbut = Application.CommandBars("List Range Popup").Controls("Delete")
With cbut.Controls.Add
.Caption = "Now"
End With

Моє запитання полягає в тому, як я можу видалити це підменю під назвою "Зараз" з панелі команд "Видалити" замість видалення панелі команд "Видалити"?

Відповіді:

як щодо використання object variable?

(рішення не перевірено - скоріше псевдо-код нижче)

dim subButton as commandbarbutton "or any other
set subbutton = cbut.controls.add

with subbutton
.caption = "now"
end with
".... other actions
subbutton.delete

Це просто повинно бути:

Application.CommandBars("List Range Popup").Controls("Delete").Controls("Now").Delete