? on running Sub's at once on where to add Application.ScreenUpdating = False

[zone709]

So below I run 2 subs at once. I'm just trying to figure out where to put the screenupdating false and true. Do I put it in both Sub's or add it right here. The sub test20 runs fin. I do not see a flash or blink, but when the code below runs Macro1. The excel screen flashes once ?

Sub TradeRun()
Sub Test20()
Sub Macro1() <--- do I add it here?
End Sub

Sub Macro1() 'Scroll down columns & add number 6 to row'
    Range("R3:S3").AutoFill Destination:=Range("R3:S56"), Type:=xlFillDefault
    Range("R3:S56").Select
    Range("R61:S61").AutoFill Destination:=Range("R61:S114"), Type:=xlFillDefault
    Range("R61:S114").Select
    Range("R119:S119").AutoFill Destination:=Range("R119:S172"), Type:=xlFillDefault
    Range("R119:S172").Select
    Range("R177:S177").AutoFill Destination:=Range("R177:S230"), Type:=xlFillDefault
    Range("R177:S230").Select
    Range("R235:S235").AutoFill Destination:=Range("R235:S288"), Type:=xlFillDefault
    Range("R235:S288").Select
    Range("R293:S293").AutoFill Destination:=Range("R293:S346"), Type:=xlFillDefault
    Range("R293:S346").Select
    Range("R351:S351").AutoFill Destination:=Range("R351:S404"), Type:=xlFillDefault
    Range("R351:S404").Select
    Range("R409:S409").AutoFill Destination:=Range("R409:S462"), Type:=xlFillDefault
    Range("R409:S462").Select
    Range("R467:S467").AutoFill Destination:=Range("R467:S520"), Type:=xlFillDefault
    Range("R467:S520").Select
    Range("R3").Select
End Sub

 

[Sektor]

Setting Application.ScreenUpdating to False affects overall Excel. Try to set it to False in Immediate Window - and you won't see the cells' selection.

 

[zone709]

Hi I did this and now I don't see the screen flashing?

Sub Scroll1() 'Scroll down columns & add number 6 to row'
 Application.ScreenUpdating = False
    Range("R3:S3").AutoFill Destination:=Range("R3:S56"), Type:=xlFillDefault
    Range("R3:S56").Select
    Range("R61:S61").AutoFill Destination:=Range("R61:S114"), Type:=xlFillDefault
    Range("R61:S114").Select
    Range("R119:S119").AutoFill Destination:=Range("R119:S172"), Type:=xlFillDefault
    Range("R119:S172").Select
    Range("R177:S177").AutoFill Destination:=Range("R177:S230"), Type:=xlFillDefault
    Range("R177:S230").Select
    Range("R235:S235").AutoFill Destination:=Range("R235:S288"), Type:=xlFillDefault
    Range("R235:S288").Select
    Range("R293:S293").AutoFill Destination:=Range("R293:S346"), Type:=xlFillDefault
    Range("R293:S346").Select
    Range("R351:S351").AutoFill Destination:=Range("R351:S404"), Type:=xlFillDefault
    Range("R351:S404").Select
    Range("R409:S409").AutoFill Destination:=Range("R409:S462"), Type:=xlFillDefault
    Range("R409:S462").Select
    Range("R467:S467").AutoFill Destination:=Range("R467:S520"), Type:=xlFillDefault
    Range("R467:S520").Select
    Range("R3").Select
     Application.ScreenUpdating = True
End Sub

 

[Sektor]

To avoid flickering, AVOID selections! Everything can be done without selecting. Moreover, without selecting, the code will execute much faster.

 

[zone709]

​ok thanks

 

[zone709]

One last thing cause I'm still new at this. If I remove .Select it wont run I get compile

    Range("R3:S3").AutoFill Destination:=Range("R3:S56"), Type:=xlFillDefault
    Range("R3:S56").Select

    Range("R3:S3").AutoFill Destination:=Range("R3:S56"), Type:=xlFillDefault
    Range("R3:S56") <-- but what else and I missing?

 

[MARK858]

Remove the whole line, it is just...

    Range("R3:S3").AutoFill Destination:=Range("R3:S56"), Type:=xlFillDefault
    Range("R61:S61").AutoFill Destination:=Range("R61:S114"), Type:=xlFillDefault

In fact you can even remove the

Destination:=

 

[mikerickson]

Generaly, one would use code like this

Sub Master()
  
    Application.ScreenUpdating = False

    Call Macro1
    Call Macro2

    Application.ScreenUpdating = True
End Sub

 

[zone709]

Thanks I used all you guys input and tighten it up,.