A family of Microsoft spreadsheet software with tools for analyzing, charting, and communicating data.
That code should be supported in Excel 2007.
You might try
Range("A5").CurrentRegion.Select
Selection.Sort Key1:=Range("AL5"), Order1:=xlAscending, Key2:=Range("K5"), Order2:=xlAscending, Key3:=Range("L5"), Order3:=xlAscending, Header:= _
xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
and see if that is anymore robust
--
Regards,
Tom Ogilvy