Для создания контекстного меню следует использовать метод Add семейства CommandBars, который возвращает ссылку на объект CommandBar. При этом в качестве значения параметра Position необходимо указать константу msoBarPopup, например:

Dim MyPopUpMenu As CommandBar
Set MyPopUpMenu = CommandBars.Add("SpecialPopUp", _
     Position:=msoBarPopup)

Данный фрагмент создает пустую строку меню MyPopupMenu, являющуюся контекстным меню. Теперь следует добавить элементы управления.

Для комментария : kadan@grsu.grodno.by