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