Stop it calculating!

[Dobbo]

I have a piece of code that I just want to run when the sheet recalculates. However the code loops and I want it to stop as soon as it has finished the update. Any ideas... code below!!

Private Sub Worksheet_Calculate()


Sheets("Leaderboard").Activate
Range("A4:C61").Select

Selection.sort Key1:=Range("C5"), Order1:=xlDescending, Key2:=Range("B5") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom

End Sub

 

[Colo]

Hi,
Try using "Application.EnableEvents"

<pre>
Private Sub Worksheet_Calculate()
Application.EnableEvents = False
Sheets("Leaderboard").Activate
Range("A4:C61").Select

Selection.Sort Key1:=Range("C5"), Order1:=xlDescending, Key2:=Range("B5") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
Application.EnableEvents = True
End Sub
</pre>

 

[Dobbo]

Thanks

I thought it should be quite simple.

Regards

Dobbo