I usually do my .xl VBA sorts like this:
Code:
With Sheets("YourSheetName")
Set r1 = .Range("A4:D3000")
r1.Select
Selection.Sort Key1:=.Cells(4,4), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
Leave a comment: