Sub auto_open() If Application.Calculation <>: -4105 Then '-4105 automatic, -4135 manual, 2 semi-automatic MsgBox Application.Calculation Application.Calculation = xlAutomatic MsgBox Application.Calculation End If End Sub
The previous bypass had a problem if you included code in your Auto_Open and then turned off the AutoSave addin.
'The following line is used to turn off prompting in AutoSave Addin in XL2000 'Result if addin is turned off: Run-time error '9'; subscript out of range ' Workbooks("autosave.xla").Excel4IntlMacroSheets("Loc Table").Range("ud01b.Prompt").Value = False 'Jim Rech 1999-09-16, MS has an XL2000 fix for not saveing AutoSave settings 'http://support.microsoft.com/default.aspx?scid=kb;en-us;Q231117 'download: http://support.microsoft.com/download/support/mslfiles/ASUpdate.exe
Visit [my Excel home page] [Index page] [Excel Onsite Search] [top of this page]
Please send your comments concerning this web page to: David McRitchie send email comments
Copyright © 1997 - 2004, F. David McRitchie, All Rights Reserved