Sortier Makro macht mir Probleme

Sub Sortiere()
Dim wks As Worksheet
For Each wks In Worksheets
Range("B7:D31").Select
Selection.Sort Key1:=Range("D7"), Order1:=xlAscending, Key2:=Range("C7") _
, Order2:=xlDescending, Header:=xlNo, OrderCustom:=1, MatchCase:=False _
, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
xlSortNormal
Next wks
End Sub

Die Datei hat mehrere Tabellenblätter, die alle identisch sind. Ich möchte nun per Makro alle Blätter aufeinmal in dem angegebenen Bereich sortieren. Das Makro läuft auch ohne Fehler, aber es wird nur das erste Tabellenblatt sortiert. Die anderen bleiben unsortiert.
Viele Grüße
Michael