Data Sort Code Issue

**tommyfernandez** · 10-19-2012, 12:16 PM

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

**tommyfernandez** · 10-19-2012, 12:17 PM

My apologies - the version I have is 2012 MS Office..
-Tommy

**mike7952** · 10-19-2012, 12:24 PM

Guess this will do

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Application
        .EnableEvents = False
        Range("A1:C56").Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlYes
        .EnableEvents = True
    End With
 End Sub

**tommyfernandez** · 10-19-2012, 12:31 PM

That did it, Mike!

Thank you very much.

-Tommy

**tommyfernandez** · 10-19-2012, 03:46 PM

Here's a follow-up question: How can the code be modified to show blank cells withing the sorting range? For example, if I change the code to show data in ascending order, how do I modify the code to show no values at the top of the list?

-Tommy