Sort

[verluc]

Is this possible to sort in one line of code: Sort Ascending

Range("A4:W" & Range("A" & Rows.Count).End(xlUp).Row).Sort Range("A4")
Range("A4:W" & Range("A" & Rows.Count).End(xlUp).Row).Sort Range("D4")

Many thanks in advance

 

[Mike LH]

Hi,

This sorts the current region from A4 to An in a; rather long, single line.

Range("A4:A" & Range("A" & Rows.Count).End(xlUp).Row).CurrentRegion.Sort Key1:=Range("A4"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal