Macro to sort a sheet automatically based on the values in a column?

[mrmiyagi]

Hello,

I have an excel sheet that I need auto sort in based on a column.

<table width="128" border="0" cellpadding="0" cellspacing="0"><col style="width: 48pt;" width="64" span="2"> <tbody><tr style="height: 15.75pt;" height="21"> <td class="xl63" style="height: 15.75pt; width: 48pt;" width="64" height="21">Name</td> <td class="xl63" style="border-left: medium none; width: 48pt;" width="64">Rank</td> </tr> <tr style="height: 15.75pt;" height="21"> <td class="xl63" style="height: 15.75pt; border-top: medium none;" height="21">Tony</td> <td class="xl63" style="border-top: medium none; border-left: medium none;" align="right">1</td> </tr> <tr style="height: 15.75pt;" height="21"> <td class="xl63" style="height: 15.75pt; border-top: medium none;" height="21">Joe</td> <td class="xl63" style="border-top: medium none; border-left: medium none;" align="right">2</td> </tr> <tr style="height: 15.75pt;" height="21"> <td class="xl63" style="height: 15.75pt; border-top: medium none;" height="21">Jimmy</td> <td class="xl63" style="border-top: medium none; border-left: medium none;" align="right">3</td> </tr> <tr style="height: 15.75pt;" height="21"> <td class="xl63" style="height: 15.75pt; border-top: medium none;" height="21">Frank</td> <td class="xl63" style="border-top: medium none; border-left: medium none;" align="right">4</td> </tr> <tr style="height: 15.75pt;" height="21"> <td class="xl63" style="height: 15.75pt; border-top: medium none;" height="21">John</td> <td class="xl63" style="border-top: medium none; border-left: medium none;" align="right">5</td> </tr> </tbody></table>
How can I achieve this with a macro?

 

[VoG]

Try this: right click the sheet tab, select View Code and paste in

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
    Application.EnableEvents = False
    Columns("A:B").Sort Key1:=Range("B2"), Order1:=xlAscending, _
        Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Application.EnableEvents = True
End If
End Sub