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