Fehler in VBA

Function oder Variable erwartet
Hat jemand einen Rat für mich?

Sub Tabellenblätter_sortieren()
AnzahlRegister = Sheets.Count
For I = 7 To AnzahlRegister - 1
X = I
For Zähler = I + 1 To AnzahlRegister
If UCase$(Sheets(Zähler).Name) < UCase$(Sheets(X).Name) Then
X = Zähler
End If
Next Zähler
If X > I Then Sheets(X).Move Sheets(I)
Next I
MsgBox ("Tabellenblätter wurden sortiert")
End Sub


Gruss

Bert