VBA/Excel/Access/Word/Excel/Excel Sort

Data Lists

   <source lang="vb">

Sub sortDemo()

    With ActiveWorkbook.Worksheets("Sheet1").sort
        .SortFields.clear
        .SortFields.add Key:=range("D3"), _
                       SortOn:=SortOnValues, _
                       Order:=xlAscending, _
                       DataOption:=xlSortNormal
        .SetRange range("B4:D9")
        .HEADER = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

End Sub

</source>