Snasui Excel Forum

Code: Select all

With Sheets("F").Sort
        .SortFields.Clear
        .SortFields.Add _
        Key:=Range("d" & 1 & ":" & "d" & xz), _
        SortOn:=xlSortOnValues, _
        Order:=xlAscending, _
        CustomOrder:="BASE", _  '********
        DataOption:=xlSortNormal
        .SetRange Range("A" & 1 & ":" & "o" & xz)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
 End With