Can Excel run vba without updating the screen or causing it to flicker?

Is there a way to have Excel perform a task using vba such as sorting a column, but do it in the background so you don't see it happening? I can see the flicker as Excel jumps from my current location to the column it needs to copy, and then paste and sort to the adjacent column, and then proceed to jump back. It happens quick, but it's just annoying to me to see that faint flicker every time. I'm hoping there is a function/command I can add to the macro that will still process the code, but maybe not update the screen during that split second.

Hope that makes sense!

This is the code I'm using:

Range("BS4:BS51").Select
    Selection.Copy
    Range("BT4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveWorkbook.Worksheets("Game").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Game").Sort.SortFields.Add Key:=Range("BT4"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Game").Sort
        .SetRange Range("BT4:BT51")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
        Range("B4").Select

As selecting is very often useless, to avoid ! For example instead of your two first codelines : Range("BS4:BS51").Copy …

See also ScreenUpdating property in VBA inner help.

Originally Posted by Marc L

As selecting is very often useless, to avoid ! For example instead of your two first codelines : Range("BS4:BS51").Copy …

See also ScreenUpdating property in VBA inner help.

Not sure what you meant by your first line, but the ScreenUpdating command worked great! Thanks!

Or instead of this

Range("BS4:BS51").Copy
Range("BT4").PasteSpecial xlPasteValues

you can use this

Range("BT4:BT51").Value = Range("BS4:BS51").Value

Thanks for the clarification; I figured there had to be a better way.

You can put this in the beginning of your code:

Application.ScreenUpdating = False 'hides what happens
Application.Calculation = xlCalculationManual 'excel doesn't save

At the end of the code this is inserted:

Application.Calculation = xlCalculationAutomatic 'Turns on the calculation again
Application.ScreenUpdating = True shows what's happening again
DoEvents
Application.Calculate
DoEvents