Tabellen sortieren

Sub Sortieren ()
'Register sortieren
Dim WsW As Worksheet                                        ' Variable für Tabelle
Dim InI As Integer                                          ' Schleifenvariable
Dim InJ As Integer                                          ' Schleifenvariable
Application.ScreenUpdating = False                          ' Bildschirmaktualisierung aus
Set WsW = ActiveSheet                                       ' aktuelle Tabelle auf Variable  _
_
schreiben
For InI = 5 To ActiveWorkbook.Worksheets.Count
For InJ = InI To ActiveWorkbook.Worksheets.Count
If Worksheets(InJ).Name 

Dieser Code ist von mir aufgezeichnet.
Sortiert "Übersicht Sport" (in der eine Namentliche Auflistung in Spalte C steht) alphabetisch.
Läuft auch.

Sub AuflistungSortieren
Sheets("Übersicht Sport").Select
Range("C6:S153").Select
Selection.Sort Key1:=Range("C6"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("J1").Select
Sheets("Übersicht Schießen").Protect "red13", DrawingObjects:=True, Contents:=True, Scenarios:=  _
_
True
End Sub

Nur ein Problem:
Der oben stehende Sheet-Sortierer sortiert Boh...;Brü...;Böh (also ö ans Ende)
Der unten stehende Listen Sortierer sortiert Boh...;Böh...;Brü (also ö als o).
Wie kann man oben stehenden Code an die Sortierreihenfolge des unteren anpassen?
Danke
Alex