write text file VBA Excel 2016 Mac error 424

[eversen]

Hello,

Trying to get my spreadsheet to work in Excel 2016 for mac, the below works well in the Excel version 2011 but gives runtime error 424 on the line of code "FileNameOut = Application.GetSaveAsFilename" anybody any suggestions how to solve this?

If bmac Then 'for mac

FileNameOut = Application.GetSaveAsFilename(initialfilename:="AMVER " & NACOSTrackName)
If FileNameOut = "False" Then
​

MsgBox "Cancel pressed"
Exit Sub​

End If

Rem force Input To .txt extention
FileParts = Split(FileNameOut, ".")
FileParts(UBound(FileParts)) = "txt" ' use "txt" to force text file
FileNameOut = Join(FileParts, ".") ' use "." to get . seperator between filename and extension​

Else 'for windows