Greetings,

I have inserted the following code for sorting data in a worksheet that goes berserk each time I try to change data on the worksheet. Any advice on why this is happening?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1:C56").Sort _
Key1:=Range("A1"), Order1:=xlDescending, Header:=xlYes
End Sub

Your responses are much appreciated!

-Tommy