Hi, Jallie,
let me put this right: there was a sort in the versions of excel prior to 2007 which loooked like this
lngLetzteZeile = .Cells(.Rows.Count, "A").End(xlUp).Row
.Range(.Cells(1, "A"), .Cells(lngLetzteZeile, "S")).Sort _
Key1:=.Range("B1"), Order1:=xlAscending, _
Key2:=.Range("D1"), Order2:=xlAscending, _
Key3:=.Range("P1"), Order3:=xlAscending, _
Header:=xlGuess, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom
From 2007 this sort is still working (in addition to the code that you supplied). According to my memory the Autofilter before 2007 did not feature the Sort which you used but with the sample provided you should be fine.
Ciao,
Holger
Bookmarks