Your problem may have been selecting a range before turning off screenupdating.


"Simon Lloyd" wrote:


I have posted some code below, it sorts the sheet within the range
everytime a value is changed putting the highest value at the top, the
trouble is when it performs this the screen flickers while its
calculating no matter what i do!!!!, is there a way of doing what i
need easier? or is there a way of stopping the flicker because it looks
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 Sub


--
Simon Lloyd
------------------------------------------------------------------------
Simon Lloyd's Profile: http://www.excelforum.com/member.php...fo&userid=6708
View this thread: http://www.excelforum.com/showthread...hreadid=525605