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"

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

[Dobbo]

Thanks

I thought it should be quite simple.

Regards

Dobbo