VBA conks out on very simple code

[SamT]

One thing I always try

Sub ResetApp()
With Application
   .ScreenUpdating  =  True
   .DisplayAlerts = True
   .Caclulation = xlCalculationAutomatic
   'and any others I run into
End With
End sub