Save As VBA Code not working on a Mac, but works on PC

[jhh6586]

I have written some code to save as a new workbook. Every PC I have tried it on (mine and other people's) the code works. But when running on a Mac it errors. Can anyone notice why this code would not work on Mac.

CurrentFile = ThisWorkbook.FullName 'save as

NewFileType = "Excel Macro Enabled Workbook (*.xlsm), *.xlsm," & _
"Excel Files 1997-2003 (*.xls), *.xls," & _
"Excel Files 2007 (*.xlsx), *.xlsx," & _
"All files (*.*), *.*"

NewFile = Application.GetSaveAsFilename( _
InitialFileName:=NewFileName, _
fileFilter:=NewFileType)

If NewFile <> "" And NewFile <> "False" Then
ActiveWorkbook.SaveAs Filename:=NewFile, _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, _
Password:="", _
WriteResPassword:="", _
ReadOnlyRecommended:=False, _
CreateBackup:=False

Set ActBook = ActiveWorkbook
End If

 

[Fluff]

Have a look here & see if it helps.
https://www.rondebruin.nl/mac/mac016.htm