Code funktioniert nicht in Excel 2000

Public Sub Vereinsmeisterschaft_A_Rangliste_sortieren()
Sheets("Vereinsmeisterschaft_A").Select
Range("B4:I53").Select
Selection.Sort Key1:=Range("I4"), Order1:=xlDescending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1").Select
End Sub

Gruess