Sort Range

[verluc]

Heb volgende macro die perfect werkt in excel 2010
Deze geeft echter foutmelding 438 bij gebruik met excel 2003? OP RODE TEKST
Wie kan voor enige aanpassing zorgen ?
Met gewaardeerde dank.

Sub Macro1()
    Dim LR As Long
    With ActiveWorkbook.Worksheets("Data")
        LR = .Range("A" & .Rows.Count).End(xlUp).Row
       [COLOR="#FF0000"] .Sort.SortFields.Clear[/COLOR]
        .Sort.SortFields.Add Key:=.Range _
            ("D4:D" & LR), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
            xlSortNormal
        With .Sort
            .SetRange .Parent.Range("A4:R" & LR)
            .Header = xlGuess
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    End With
End Sub

 

[verluc]

Kort samengevat :

In het bereik : A4 tot laatste rij R sorteren oplopend op basis van kolom D
Bedankt

 

[HSV]

Sub Macro1()
  With Sheets("Data")
    .Range("A4:R" & .Range("A" & Rows.Count).End(xlUp).Row).Sort .Range("D4")
  End With
End Sub

 

[verluc]

HSV, oprechte dank voor Uw snelle reactie. Werkt perfect.
Onbegrijpelijk dat U dergelijke macro kan herleiden tot drie regels : Geweldig !!!!