Just remove that argument...

Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

--
HTH...

Jim Thomlinson


"Keith" wrote:

I have a workbook with several modules in it to do different tasks. It was
written in Excel 2003 and it works great in Excel 2003 and Excel XP.

Unfortunately most of the users use Excel 2000 and when the try to do a
simple sort by running one of the modules attached to a button the sheet they
get the error message "Compile error: Can't find Project Library" I had a
look at the code and the first thing it has a problem with is the line:

Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

The error is with the xlSortNormal

How can I resolve this problem?