Problme with using the same vba on mac

[shahdelsol]

I am using this code on windows and working without any problme but when I use it on Mac. The code stops with error at this line:
.SaveAs FileName:=FPath & "\" & FName, FileFormat:=51

Can anyone help please

Sub SaveContactXcel()
Dim FName As String
Dim FPath As String
 
FPath = "/Users/abc/Desktop/books/"
FName = Sheets("sheet1").Range("J1").Text & " " & Sheets("sheet1").Range("C10").Text

If (Len(Range("C10")) < 3) Then
MsgBox "You must have at least first name in cell C10 before saving"

Exit Sub

Else
 Application.DisplayAlerts = False
 
     'copy all sheets into new workbook
   
  ActiveWorkbook.Sheets.Copy
   Set wb = ActiveWorkbook
 
 
ActiveWorkbook.Sheets.Copy
   Set wb = ActiveWorkbook

 
   With wb
      On Error Resume Next
         .Sheets("Sheet1").Shapes("Save").Delete
         .Sheets("Sheet1").Range("J2:K2").Select
         Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
     
       
      On Error GoTo 0
   
    .SaveAs FileName:=FPath & "\" & FName, FileFormat:=51
   .Close SaveChanges:=True
   End With
     

    Application.DisplayAlerts = True
    Application.Quit
    MsgBox "The Contract Has Been Saved Successfully!"
    Set wb = Nothing

     End If
 
End Sub

 

[Akbarov]

.SaveAs FileName:=FPath & Application.PathSeparator & FName, FileFormat:=51

Try like this

 

[shahdelsol]

.SaveAs FileName:=FPath & Application.PathSeparator & FName, FileFormat:=51

Try like this

This worked perfectly. Thank you so much. One more question. When I try to open the saved file (file format=51), it says the file extension doesn't exist and gives option of open anyway. After I try to open it askes to update and then it opens eventaully. Did you happen to know why it does it that way? Is fileformat 51 right format for .xlsx for mac?

 

[Akbarov]

You are welcome, better to include the extension.
.SaveAs (FPath & Application.PathSeparator & FName & ".xlsx")

 

[HaHoBe]

Hi shahdelsol,

have a look at SaveAs and FileFormat numbers on Mac for more information.

Ciao,
Holger

 

[shahdelsol]

You are welcome, better to include the extension.
.SaveAs (FPath & Application.PathSeparator & FName & ".xlsx")

This worked for me. Thank you so much!