Удалить подменю из командной строки

Question

Я создал подменю в excel vba в таблице данных. Вот код,

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

Мой вопрос, как я удалить это подменю с именем «Теперь» от «Удалить» CommandBar вместо удаления «Удалить» CommandBar?

Answer 1

что касается использования object variable?

(раствор не tested-, а псевдо-код ниже)

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

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

Answer 2

Это должно быть просто:

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