The code was sorting a range on a different worksheet--not the sheet that got
changed.


ssGuru wrote:
<<snipped

Not sure if you need an automatic sort but this code automatically
sorts column 13 or col 16 exclusively whenever any new value is added
to the columns
These columns DO NOT have a header. It only sorts a single column at
a time and doesn't sort many columns by any single column.

'070625-DD Sort some list columns automatically in add value
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 13 Or Target.Column = 16 Then
Columns(Target.Column).Sort _
Key1:=Cells(1, Target.Column), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom
'Target.CurrentRegion.Name = "NameList"
End If
End Sub

--

Dave Peterson