Public Sub CreatePropMenu()
Dim p As CommandBar         'панели инструментов
Dim t As CommandBarControl  'пункты меню в этих панелях
For Each p In Application.CommandBars           'перебираем все панели инструментов
    If InStr(1, p.Name, "Cell") > 0 Then        'и ищем панель  "Ячейка" :
        For Each t In p.Controls                'если там есть п.меню "Пропись",
            If t.Caption = PropMnuName Then Exit Sub   'то и остальные пункты уже встроены.
        Next t                                  'п.меню "Пропись"не найден.
        With p.Controls                         'поэтому добавляем его и остальные:
             Set CntProp = .Add(msoControlButton)
             With CntProp
                  .Caption = CntPMnuName
                  .TooltipText =  "К-во прописью содержимого активной ячейки" 
                  .OnAction =  "CountProp" 
                  .Visible = True
             End With
             Set SummProp = .Add(msoControlButton)
             With SummProp
                  .Caption = SumPMnuName
                  .TooltipText =  "Сумма прописью содержимого активной ячейки" 
                  .OnAction =  "SumProp" 
                  .Visible = True
             End With
         End With
         MsgBox  "Можно выводить суммы прописью"  & vbCrLf & _
                 "под суммой-числом в ячейке с курсором" , _
                vbInformation + vbOKOnly,  "Add-in 'Пропись'" 
         Exit Sub           'мавр может уходить...
    End If
Next p
End Sub