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:
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: