PDA

View Full Version : Cannot surpress compatibility or auto calculate message..HELP!!



psctornado
08-22-2014, 08:07 AM
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

:think:

Bob Phillips
08-22-2014, 09:47 AM
Not tried this, but did you try


Application.DisplayAlerts = False

before the save?