What error are you getting? Is xlDescending defined? If not use this:

#DEFINE xlDescending	2	

>Hello,
>
>Is there someone who can help me out with a excel sorting problem?
>
>I have a excel sheet i acces from Fospro.
>The data is read from a fox table and put in a sheet.
>Now i want to sort a range in excel descending but i allways get an error.
>
>My code of line is:
>
> oWorkBook.ActiveSheet.Range("A17:C36").Sort Key1.Range("C18").Order1=xlDescending
>
>Can anybody please solve my problem?
>
>
>Thanks
>ad