Wat klopt er niet (voetbalsortering)

[trisie94]

Hallo allen,
Ik heb even een vraag, ik heb een bestandje waarin voetbalstanden bij gehouden worden, alleen iets klopt er niet. Het zijn 4 tabellen, die moeten sorteren als er iets veranderd in de tabellen, maar hij geeft steeds een foutcode. Wat doe ik fout?
Tristan

Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Column >= 2 And Target.Column <= 10) And (Target.Row >= 2 And Target.Row <= 70) Then
Range("B2:J15").Sort key1:=Range("G2"), Order1:=xlDescending, Key2:=Range("C2"), Order2:=xlDescending, Key3:=Range("J2"), Order3:=xlDescending, key4:=Range("H2"), Order4:=xlDescending
Range("B21:J34").Sort key1:=Range("G21"), Order1:=xlDescending, Key2:=Range("C21"), Order2:=xlDescending, Key3:=Range("J21"), Order3:=xlDescending, key4:=Range("H21"), Order4:=xlDescending
Range("B39:J52").Sort key1:=Range("G39"), Order1:=xlDescending, Key2:=Range("C39"), Order2:=xlDescending, Key3:=Range("J39"), Order3:=xlDescending, key4:=Range("H39"), Order4:=xlDescending
Range("B57:J70").Sort key1:=Range("G57"), Order1:=xlDescending, Key2:=Range("C57"), Order2:=xlDescending, Key3:=Range("J57"), Order3:=xlDescending, key4:=Range("H57"), Order4:=xlDescending
End If
End Sub

 

[Warme bakkertje]

Als je de VBA-Help zou geraadpleegd hebben zou je gezien hebben dat Sort slechts 3 Keys heeft, geen 4.