Speed Up Macro Advice

[dgr]

Hi,
I'm using Excel 2013. I would like to use some of the following code to speed up my processing.

Sub test()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.CutCopyMode = False
Application.DisplayStatusBar = False

'run any code

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.DisplayStatusBar = True
End Sub

My question if I have 10 macros running sequentially one after the other must I put the above mentioned code in every single macro? Can I put the 1st 4 lines of the above mentioned code in the 1st macro & the last 3 lines in the 10th macro?

Explained slightly differently can I do this to save my coding time?

Sub macro1()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.CutCopyMode = False
Application.DisplayStatusBar = False

'run any code

End Sub

Sub macro10()

'run any code

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.DisplayStatusBar = True
End Sub

Thanks for your advice.

 

[Chris Mack]

I'm guessing you would have one central macro like this:

Sub CentralMacro()

    Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = False
    Application.CutCopyMode = False
    Application.DisplayStatusBar = False

    Call macro1
    Call macro10

    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    Application.DisplayStatusBar = True

End Sub

Hope this helps,

Chris.

 

[Special-K99]

That should work for what you want, unless the macros in between turn those settings back on

 

[dgr]

That's a good idea Chris. Thanks.
Thanks for the caution, Special-K99.
I'll do some experiments. Have a good day to the both of you.

 

[Chris Mack]

Yw!