Столкнулся вот с такой проблемой, сделал надстройку в Excel:

Option Explicit
Private Sub Workbook_AddinInstall()
Dim objCmdBrPp As CommandBarPopup
Dim objCmdBtn As CommandBarButton

Set objCmdBrPp = Application.CommandBars _
("Worksheet Menu Bar").Controls("Ñåðâèñ")
On Error Resume Next
Set objCmdBtn = objCmdBrPp.Controls("Report")
If Err.Number <> 0 Then
Set objCmdBtn = objCmdBrPp.Controls.Add _
(Type:=msoControlButton, before:=4)
End If
On Error GoTo 0

With objCmdBtn
.Caption = "Report"
.OnAction = "Help1"
End With

End Sub

Private Sub Workbook_AddinUninstall()

On Error Resume Next
Application.CommandBars("Worksheet Menu Bar") _
.Controls("Ñåðâèñ").Controls("Report").Delete
End Sub

но при запуске этой надстройки выдает мне следующую ошибку:

Не найден макрос 'Report.xla!Help1'

Хотя макрос с именем Help1 существует...
Подскажите,пожалуйста, в чем проблема