sava and quit

Sub quitSave()
Application.DisplayAlerts = True
answer = MsgBox("ÂíÇãí ÎæÇåíÏ ÇÒ ÈÑäÇãå ÎÇÑÌ ÔæíÏ¿", vbYesNo + vbQuestion, "Exit")
If answer = vbYes Then
ThisWorkbook.Save
Application.Quit
Application.DisplayAlerts = False
End If
End Sub