Reply to thread

Message: [QUOTE="Claus Busch, post: 7419866"] Hi Kevin, Am Fri, 5 Jul 2013 11:39:02 -0700 (PDT) schrieb [email]kevinwaldman9@gmail.com[/email]: your table in A:G, your dropdown from data validation in J1 then in code module of the worksheet: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$J$1" Then Exit Sub Dim Col As Integer With ActiveSheet Col = WorksheetFunction.Match(Target, .Range("A1:G1"), 0) .UsedRange.Sort key1:=.Cells(1, Col), _ order1:=xlAscending, Header:=xlYes End With End Sub Modify to suit Regards Claus B. [/QUOTE]