code works on windows but not on Mac

[Wizcow]

Hello
I have a Mac Studio m1 Max 32 gb running Ventura 13.2.1
This code works on windows machines but not on the Mac.
saveName keeps calling a runtime error
Does anyone see an issue?
Thanks
Tom

Sub SaveInvoice()

Dim fname As String
fname = "test"

        'MsgBox (fname)
       
            saveName = Application.GetSaveAsFilename(InitialFileName:=fname, _
            fileFilter:="Microsoft Excel Worksheet (*.xlsm), *.xlsm")
      
      If saveName <> False Then
            ActiveWorkbook.SaveAs FileName:=saveName, FileFormat:=xlOpenXMLWorkbookMacroEnabled
      End If
      
End Sub

 

[6StringJazzer]

The filefilter argument is not supported on a Mac.

See Ron de Bruin's page for a custom function workaround.

 

[Wizcow]

That explains its. Thank you 6StringerJazzer!!!
Tom