Макрос правильно запускается в VBE, а не из кнопки надстройки в файле Excel

Question

Я ищу помощь по следующему коду. Хотя он отлично работает в редакторе VB, он выдает ошибку при запуске макроса с помощью кнопки надстройки, которую я добавил в сам файл Excel. Вместо сохранения новой рабочей книги он пытается сохранить исходную рабочую книгу с поддержкой макросов. Я не могу использовать метод SaveAs из-за проблем с разрешениями, которые я обхожу, предлагая пользователю выбрать путь к файлу. Любая помощь приветствуется! Пожалуйста, не стесняйтесь исправлять мой код ниже.

Sub Forecast()

Dim saveResult As Variant

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

'Define variable name of new workbook
NewWBname = "Revenue Forecast " & Format(Date, "yyyy-mm-dd")

'Copy data from macro-enabled file to new workbook
Sheets(Array("Revenue Forecast", "Probability Table")).Copy

'Rename $A$1
With ActiveWorkbook
    .Worksheets("Revenue Forecast").Range("A1").FormulaR1C1 = "Revenue Forecast " & Year(Now()) + 1
        'Autofit all columns for both sheets on new workbook
        For Each Wsht In Worksheets
            With Wsht.UsedRange
                .EntireColumn.AutoFit
            End With
        Next Wsht
    'Open Save As Dialogue Box to prompt user to choose file path
    saveResult = Application.Dialogs(xlDialogSaveAs).Show(NewWBname, Arg4:=xlOpenXMLWorkbook)

End With

End Sub