I am a supporter of St. Joseph's hospice. If you find this site useful or if it helped you, consider a small donation to St. Joseph's, please.

Information on
St. Joseph's

 

"Any sufficiently advanced technology is indistinguishable from magic." [Arthur C. Clarke]

My friend and colleague Jon T. created the smallest reasonable class module I have seen so far: SystemState provides an easy way to save and to restore system state variables like Calculation, ScreenUpdating and others.

Normally you write at the beginning of a VBA macro
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False

and at the end of a macro
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

With the class module SystemState you just write at the start
Dim state As SystemState
Set state = New SystemState
Call state.Save(True) 'Just to set favorite parameters - New SystemState has already saved previous values

and at the end
Set state = Nothing 'Not even necessary - will be done automatically

If you change the code in sub Class_Initialize below to Call Save(True) then you just need to put at the beginning of each of your subs

Dim state As SystemState
Set state = New SystemState

and the system state variables will be stored, your favorite default values get initialized and at the end of the sub the stored values get restored.
[But remember: You cannot abbreviate this to "Dim state as New SystemState"!]

You can control a whole bunch of system state variables: