Excel Excel Сохранить как

Question

Я близок к этому, но не совсем там. Я пытаюсь сохранить только верхний лист (Список для Mailchimp) как отдельный лист после завершения расчетов. Прямо сейчас я получаю ошибки, и в идеальном мире пользователю будет предложено указать имя файла и выбрать место для его сохранения при настройке сохраненного формата в.csv. Но на этом этапе я просто согласился бы не получать ошибки в saveAs

Sub SaveSheet()
'
' SaveSheet Macro
'

'
Dim wb As Workbook
Set wb = Workbooks.Add
ThisWorkbook.Sheets("List for Mailchimp").Copy Before:=wb.Sheets(1)
wb.SaveAs Filename:= _
    MyFileName, _
    CreateBackup:=False

End Sub

В настоящее время я получаю сообщение об ошибке "Не удалось получить доступ к файлу" и предложения (полная ошибка на следующем снимке экрана). Я ценю любые предложения. Спасибо.