Automatisch sorteren werkt niet

[Oude leerling]

Hallo profs
Ik heb in exel een adresbestandje gemaakt welke ik automatisch wil laten sorteren
als ik als laatste , van een nieuw adres , de plaatsnaam ingevuld heb
Komt steeds de volgende foutmelding "Methode Apply van Object Sort mislukt"

Wat is er fout aan de onderstaande oplossing.

Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("G6:G14")) Is Nothing Then Exit Sub
 Range("A5:F25").Select
    ActiveWorkbook.Worksheets("Blad1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Blad1").Sort.SortFields.Add Key:=Range("A6:A25"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Blad1").Sort
        .SetRange Range("A5:F25")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Alvast bedankt , Jaap

 

[HSV]

Probeer deze eens.

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("F6:F25")) Is Nothing Then
  Range("A6:F25").Sort Range("A5")
 End If
End Sub

 

[Oude leerling]

Probleem opgelost.

Perfect , en nog een veel kortere oplossing ook.

Bedankt, Jaap