Fout melding 438

[alsoft]

Als ik onderstaan de Macro laat werken in Office 2007, werk hij goed.
Maar als ik dezelfde macro laat lopen in Office 2003 ,geeft hij Fout 438 eigenschap of Methode .....
Kan iemand mij hiermee helpen s.v.p.

Sub sorteeropstand()
'
' sorteeropstand Macro
'

ActiveSheet.Unprotect
Range("B3:O66").Select
ActiveWorkbook.Worksheets("stand").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("stand").Sort.SortFields.Add Key:=Range("N3:N66"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:="5,4,3,2,1,0", _
DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("stand").Sort.SortFields.Add Key:=Range("O3:O66"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("stand").Sort
.SetRange Range("B3:O66")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("B3").Select
ActiveSheet.Protect
End Sub

 

[Warme bakkertje]

Office 2003 kent de methode SortFields niet
Voeg anders eens een voorbeeldbestandje toe