ScreenUpdating=False doesnt stop screen flicker??

  • Thread starter Thread starter Simon Lloyd
  • Start date Start date
S

Simon Lloyd

I have posted some code below, it sorts the sheet within the rang
everytime a value is changed putting the highest value at the top, th
trouble is when it performs this the screen flickers while it
calculating no matter what i do!!!!, is there a way of doing what
need easier? or is there a way of stopping the flicker because it look
horrendous?

Regards,
Simon

Private Sub Worksheet_Calculate()
Range("A2:V40").Select
With Application
.ScreenUpdating = False
Selection.Sort Key1:=Range("T2"), Order1:=xlDescending
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
_
DataOption1:=xlSortNormal
.ScreenUpdating = True
End With

End Su
 
Try putting the
Application.ScreenUpdating = False before the "WITH" statement and turn
back on after the "WITH"
 
I have tried the ScreenUpdating before the with but it made no change
the flicker is there every time it sorts!

Regards,

Simo
 
i don't see any flashing, just the updated data after it sorts

Private Sub Worksheet_Calculate()
Application.ScreenUpdating = False
Range("A2:V40").Sort Key1:=Range("T2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Application.ScreenUpdating = True
End Sub
 
Back
Top