Office: Sortieren

Hallo

Ich bin grade etwas unsicher. Was müsste denn bei den Fragezeichen rein wenn die Sortierung in beide richtungenen gehen soll?

MFG

Code:

Sub lfd_sortieren()
    ' sortieren nach laufender nummer
    ActiveWorkbook.Worksheets("TB").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("TB").Sort.SortFields.Add Key:=Range("B17:B96"), _
    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("TB").Sort
        .SetRange Range("B17:OK96")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = ?????
        .SortMethod = xlPinYin
        .Apply
    End With
    Call lfd_nr
End Sub

 

erledigt. ich glaube ich habe meine frage grundlegend falsch gestellt. über die richtige forumulierung und die sinnhaftigkeit mach ich mir neue gedanken