Run macro without "screen flicker"

[alexbat]

Hi,

I´m trying to understand how to run a macro from Sheet 1 in a workbook that changes Sheet 3.

Running this code

Sub Test1()
  
    Worksheets("Sheet3").Activate
    Range("H4").Select
    ActiveCell.FormulaR1C1 = "A"
    Range("H5").Select
    Worksheets("Sheet3").Activate
    
End Sub

Excel switches between Sheet 1 and Sheet 3. How could I do instead to run the script from Sheet 1 without switching to Sheet 3 and back?

Thank you in advance!

 

[HalfAce]

...that will sort and do advanced filtering in Sheet 3, but I want to stay in Sheet 1.

Try something like this:

With Sheets("Sheet3")
  .Columns("A:B").Sort Key1:=.Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
     OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
  .Columns("A:B").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
End With

You won't need to deal with the screen updating (on or off) with this either.

Hope it helps.