Makro der sorterer

VBA-koden indsættes f.eks.i VBA (Alt+F11) i ThisWorkbook:

Sub Sorter()
    With Selection
        .Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    End With
End Sub

I selve regnearket:
Derefter Tilpas / Kommandoer / Makroer
Træk en "knap" op til den ønskede værktøjslinie
Højreklik på knappen - Tildel makro - vælg ThisWorkbook.sorter
Luk

Marker området - aktiver knappen

Det er lykkedes mig at indspille en makro, der fungerer. Jeg ville dog gerne give dig point for at forsøge at hjælpe mig, men så skal du svare.

OK & tak...