[COLOR="DarkSlateGray"][B]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then
Application.EnableEvents = False
Range(Cells(1, 1), Cells(Rows.Count, 4).End(xlUp).Offset(0, 1)).Sort _
Key1:=Range("D1"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Application.EnableEvents = True
End If
End Sub[/B][/COLOR]