Save workbook without quote

[frotaru]

As u see in this sub before closing window i save the workbook

I wander if it is possible to save the workbook without prompting the typical message box “do you want to save the changes toy made to …”


Sub DPDF_Cntrz_End_Chk_Formula1()

Dim FieldOrderChk As String
FieldOrderChk = "=IF(ISERROR(VLOOKUP(R[-1]C,[Fields.xls]PDiff_Fields!R5C1:R50C2,2,FALSE)),"""",VLOOKUP(R[-1]C,[Fields.xls]PDiff_Fields!R5C1:R50C2,2,FALSE))"

If Range("A2").FormulaR1C1 = FieldOrderChk Then
ActiveWindow.Close
Else
Application.Run "suppinf.xls!DPDF_Field_Order"
End If
ActiveWorkbook.Save
ActiveWindow.Close
End Sub

 

[chicagodiceman]

Try:

Application.DisplayAlerts = False

before your save command

 

[frotaru]

hi

Thank you