Проблема с созданием панели инструментов (точнее кнопки) в MS powerpoint

Хочу написать макрос для powerpoint, причем необходимо сделать процесс добавления и запуска макроса как можно более простым, решил попробовать создать add-in файл с кнопкой.
И вот тут возникла проблема:

Sub addbutton()
Dim CalculatorBut As CommandBarButton
Set CalculatorBut = _
CommandBars("Standard").Controls.Add(Type:=msoControlButton)
With CalculatorBut
.Style = msoButtonCaption
.OnAction = "CalcWithButton"
.Caption = "Start Calculator"
End With
End Sub

sub CalcWithButton работает исправно, кнопка добавляется в меню надстроек, но после нажатия выдает сообщение "Макрос не найден. Возможно, он отключен по соображениям безопасности". В настройках включил макросы - та же ерунда.

По правде говоря, это мой первый "пробный" макрос, прошу сильно не бить))
Может создать кнопку можно как-то по-другому?
+как еще можно "облегчить" добавление макроса\кнопки для других пользователей?
Заранее благодарю!