Function turnEverythingOff()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False
End Function

Function turnEverythingOn()
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True
End Function

Turn off screen updating, formula calculation and events in order to prevent Excel from doing all of them and speed up macro execution.

Speed Up Excel Macro Execution

Visual Basic