Ошибка в функции возникает только если она запускается по кнопке в тулбаре

' strPath - path to new Excel file without macros
Sub CopyAllWithoutMacros(ByRef strPath As String)
    Dim nSheets, nSheetsNew As Integer
    Dim flgNew As Integer
    On Error GoTo Err
    flgNew = 0
    OldName = ActiveWindow.Caption
    Application.ScreenUpdating = False
    nSheets = ActiveWorkbook.Sheets.Count
    For i = 1 To nSheets
        If ActiveWorkbook.Sheets(i).Visible = True Then
            ActiveWorkbook.Sheets(i).Copy Before:=Sheets(i)
            flgNew = flgNew + 1
            If flgNew = 1 Then
                Workbooks.Add
                NewWindowName = ActiveWindow.Caption
                Windows(OldName).Activate
                nSheetsNew = Workbooks(NewWindowName).Sheets.Count
                Sheets(i).Move After:=Workbooks(NewWindowName).Sheets(nSheetsNew)
                Sheets(nSheetsNew).Visible = True
                Application.DisplayAlerts = False
                For k = 1 To Sheets.Count - 1
                    Sheets(1).Delete
                Next
            Else
                Windows(OldName).Activate
                nSheetsNew = Workbooks(NewWindowName).Sheets.Count
                Sheets(i).Move After:=Workbooks(NewWindowName).Sheets(nSheetsNew)
            End If
            Windows(OldName).Activate
            nSheetsNew = Workbooks(NewWindowName).Sheets.Count
            Workbooks(NewWindowName).Sheets(nSheetsNew).Name = Sheets(i).Name
        End If
    Next
    Workbooks(NewWindowName).SaveAs Filename:=strPath, FileFormat:=xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False, CreateBackup:=False
    Application.ScreenUpdating = True
Err:
    If Err.Number <> 0 Then
        Msg = 'Îøèáêà #' & Str(Err.Number) & ' âîçíèêëà â ' _
                & Err.Source & Chr(13) & Err.Description
        MsgBox Msg, , 'Error', Err.HelpFile, Err.HelpContext
    End If
End Sub

Function MakeAndSendReport()
    Dim strPath, strFileName As String
    Dim CurrDate As Date
        CurrDate = Date
        strFileName = 'report_' & Format(CurrDate, 'yymmdd') & '.XLS'
        strPath = g_strPath & strFileName
        CopyAllWithoutMacros (strPath)
End Function
 
Sub CreateSendButton()
    Dim oThisCtrl As CommandBarButton
    Dim oCmdBar As CommandBar
    
    Set oCmdBar = CommandBars.Add('SendReportBar')
    oCmdBar.Visible = True
    oCmdBar.Position = msoBarTop
    Set oThisCtrl = oCmdBar.Controls.Add
    With oThisCtrl
        .FaceId = 1675
        .TooltipText = 'Report'
        .OnAction = 'MakeAndSendReport()'
    End With
End Sub