macro for save as and macro-free display

[shawrod]

I am using this code :

Private Sub CommandButton3_Click()
Dim FName As String
Dim FPath As String

FPath = "\\my-PC\myfolder"
FName = Sheets("Car").Range("C1").Text
ThisWorkbook.SaveAs Filename:=FPath & "\" & FName, FileFormat:=51
Application.Quit
End Sub

but as soon as I run the code. I get this dialogue poped up which is annoying:
" The following feature cannot be saved in ......
to continue to save as macro-free workbook click yes"
which my answer is yes but how do I get rid of this message because I am already saving the file in 51 (macro free) as you see my code above. so I don't understand why it is asking again. Anybody know how to get rid of this annoying pop-up?

 

[Peter_SSs]

Welcome to the MrExcel board!

Try adding the blue lines of code where shown.

Application.DisplayAlerts = False
ThisWorkbook.SaveAs Filename:=FPath & "\" & FName, FileFormat:=51
Application.DisplayAlerts = True

 

[AlphaFrog]

Maybe try something like this...

Private Sub CommandButton3_Click()

    Dim FName As String
    Dim FPath As String
    
    FPath = "\\my-PC\myfolder"
    FName = Sheets("Car").Range("C1").Text
    [COLOR="Red"]Application.DisplayAlerts = False[/COLOR]
    ThisWorkbook.SaveAs Filename:=FPath & "\" & FName, FileFormat:=51
    [COLOR="Red"]Application.DisplayAlerts = True[/COLOR]
    Application.Quit
    
End Sub

 

[shawrod]

You guys are awesome! Thank you so much. It did work. you have no idea much time I spent on it and I couldn't figure it out.