SaveAs Not Working on a Mac

[masouder]

I built a model that needs to run on a PC and on a Mac. One of the routines copies a sheet from the model to a new workbook and saves the new workbook. The following code runs fine on a PC, but the line that saves the file throws a "Method 'SaveAs' of Object" error on a Mac (last line). Does anyone know what I have to do get it work on a Mac?

NewFileName = ThisWorkbook.Path & "\" & Format(Now, "yyyy.mm.dd") & "_" & "Invoice Payments_" & [SetupProjectName] & ".xlsx"
Set NewBook = Workbooks.Add
shtInvoicePayments.Copy Before:=NewBook.Sheets(1)
NewBook.SaveAs FileName:=NewFileName

Thank you!

 

[MARK858]

Try (untested, please note we might need the Mac version)..

    NewFileName = ThisWorkbook.Path & Application.PathSeparator & Format(Now, "yyyy.mm.dd") & "_" & "Invoice Payments_" & [SetupProjectName] & ".xlsx"
    Set NewBook = Workbooks.Add
    shtInvoicePayments.Copy Before:=NewBook.Sheets(1)
    NewBook.SaveAs Filename:=NewFileName, FileFormat:=51

 

[masouder]

Thanks for the quick reply. Unfortunately, I still get the same error.

 

[MARK858]

Change the 51 to 52 but we will need to amend the code if that works

 

[masouder]

Unfortunately, that didn't work either. I developed an acceptable workaround, so I think I'm good. Appreciate your help.

 

[MARK858]

Happy you have found a workaround (just as a btw you were testing the 52 on the Mac and not the PC?)

 

[masouder]

Yes, tested the 52 on the Mac. Thanks again.