I recorded this macro to sort a large list in my worksheet, but it takes a few seconds to complete. It's added to other macro's, so if I could speed it up that'd be great. Any ideas?


Sub SORT()
'
' SORT Macro
'

'
    Rows("10:414").Activate
    ActiveWorkbook.Worksheets("Parts Worksheet").SORT.SortFields.Clear
    ActiveWorkbook.Worksheets("Parts Worksheet").SORT.SortFields.Add(Range( _
        "AZ10:AZ414"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue. _
        Color = RGB(192, 0, 0)
    ActiveWorkbook.Worksheets("Parts Worksheet").SORT.SortFields.Add(Range( _
        "AZ10:AZ414"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue. _
        Color = RGB(255, 192, 0)
    ActiveWorkbook.Worksheets("Parts Worksheet").SORT.SortFields.Add(Range( _
        "AZ10:AZ414"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue. _
        Color = RGB(255, 255, 0)
    ActiveWorkbook.Worksheets("Parts Worksheet").SORT.SortFields.Add(Range( _
        "AZ10:AZ414"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue. _
        Color = RGB(146, 208, 80)
    ActiveWorkbook.Worksheets("Parts Worksheet").SORT.SortFields.Add(Range( _
        "AZ10:AZ414"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue. _
        Color = RGB(0, 176, 80)
    ActiveWorkbook.Worksheets("Parts Worksheet").SORT.SortFields.Add(Range( _
        "AZ10:AZ414"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue. _
        Color = RGB(0, 176, 240)
    ActiveWorkbook.Worksheets("Parts Worksheet").SORT.SortFields.Add(Range( _
        "AZ10:AZ414"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue. _
        Color = RGB(0, 112, 192)
    ActiveWorkbook.Worksheets("Parts Worksheet").SORT.SortFields.Add(Range( _
        "AZ10:AZ414"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue. _
        Color = RGB(0, 32, 96)
    ActiveWorkbook.Worksheets("Parts Worksheet").SORT.SortFields.Add(Range( _
        "AZ10:AZ414"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue. _
        Color = RGB(112, 48, 160)
    ActiveWorkbook.Worksheets("Parts Worksheet").SORT.SortFields.Add(Range( _
        "AZ10:AZ414"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue. _
        Color = RGB(230, 184, 183)
    ActiveWorkbook.Worksheets("Parts Worksheet").SORT.SortFields.Add(Range( _
        "AZ10:AZ414"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue. _
        Color = RGB(151, 71, 6)
    ActiveWorkbook.Worksheets("Parts Worksheet").SORT.SortFields.Add(Range( _
        "AZ10:AZ414"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue. _
        Color = RGB(49, 134, 155)
    ActiveWorkbook.Worksheets("Parts Worksheet").SORT.SortFields.Add(Range( _
        "AZ10:AZ414"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue. _
        Color = RGB(118, 147, 60)
    ActiveWorkbook.Worksheets("Parts Worksheet").SORT.SortFields.Add Key:=Range( _
        "AZ10:AZ414"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Parts Worksheet").SORT
        .SetRange Range("A10:BJ414")
        .Header = xlGuess
        .MatchCase = True
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A12").Select
End Sub