Sorteren data in alle werkbladen

[imans314]

Ik heb een boeklijst bestand met meerder werkbladen (A-Z)
Deze wil ik graag als volgt gesorteerd hebben:
Achternaam
Voornaam
Serie
Titel

ik heb een macro voor het sorteren van Kolom 1 (achternaam) maar hoe kan ik vervolgens zorgen dat de andere kolommen gesorteerd worden?
Ik kan ze wel sorteren, maar niet zonder dat de hele boel door elkaar raakt.

Ik heb al wat met VBA zitten stoeien maar kom er niet uit.
Wie kan me helpen?

 

[wampier]

Je kunt toch ook de andere keys toevoegen?

Sub Sorteren()

For Each ws In ThisWorkbook.Worksheets
  ws.Sort.SortFields.Clear
  ws.Sort.SortFields.Add Key:=Range("A1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
  ws.Sort.SortFields.Add Key:=Range("b1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
  ws.Sort.SortFields.Add Key:=Range("c1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
  ws.Sort.SortFields.Add Key:=Range("d1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
  With ws.Sort
    .SetRange Range("A1:d999")
    .Apply
   End With
 Next
End Sub

 

[imans314]

En natuurlijk was het simpeler dan ik dacht.

Dank je wel!!