Sort Object

Excel Developer Reference

Represents a sort of a range of data.

Version Information
 Version Added:  Excel 2007

The following proceedure builds and sorts data in a range in the active worksheet.

Visual Basic for Applications
  Sub SortData()
    'Building data to sort on the active sheet.
    Range("A1").Value = "Name"
    Range("A2").Value = "Bill"
    Range("A3").Value = "Rod"
    Range("A4").Value = "John"
    Range("A5").Value = "Paddy"
    Range("A6").Value = "Kelly"
    Range("A7").Value = "William"
    Range("A8").Value = "Janet"
    Range("A9").Value = "Florence"
    Range("A10").Value = "Albert"
    Range("A11").Value = "Mary"
    MsgBox "The list is out of order.  Hit Ok to continue...", vbInformation
    'Selecting a cell within the range.
    'Applying sort.
    With ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort
        .SortFields.Add Key:=Range("A2:A11"), _
            SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SetRange Range("A1:A11")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
    End With
    MsgBox "Sort complete.", vbInformation
End Sub

See Also