Cannot surpress compatibility or auto calculate message..HELP!!

[psctornado]

Hi All,

I have the below code that works fine for my purpose, but I would also like to surpress any prompts after I save to .xls file format. Can anyone give me their thoughts on how to surpress the prompts for both compatibility and auto calculate?

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "Calculation Workbook.xls", FileFormat:=56
End Sub

[Bob Phillips]

Not tried this, but did you try

Application.DisplayAlerts = False

before the save?