Flickering with Application.ScreenUpdating = False

[djp203]

Hi I'm using this VBA code to sort a table. The table's values coming from Formula.

Private Sub Worksheet_Calculate()
On Error Resume Next
Application.ScreenUpdating = False
With Me.Range("O19:P24")
.Sort Key1:=Me.Range("P20"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
Application.ScreenUpdating = True
On Error GoTo 0
End Sub

However it still flickers when it runs.... any ideas?

 

[djp203]

For anyone who may like to know

Private Sub Worksheet_Calculate()
    On Error Resume Next
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    With Me.Range("F20:G25")
        .Sort Key1:=Me.Range("G21"), Order1:=xlDescending, Header:=xlGuess _
        , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    End With
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    On Error GoTo 0
End Sub

 

[RoryA]

Just FYI, you don't need On Error GoTo 0 before the End Sub.

 

[XLXRider]

I've experienced this as well... try putting the ScreenUpdating command as the very first command in the macro. It may help; this same thing has worked for me.

Regards,
XLXRider