Custom sort -Excel Sheet

[kiran]

I want to apply custom sort on option for more than 4 levels , currently i am able to apply only on till three levels i.e as follows using following

Code:

Set objWorkbook = objExcel.Workbooks.Open("C:\EXCEL.xls")
Set objWorksheet = objWorkbook.Worksheets(1)
Set objRange = objWorksheet.UsedRange
Set objRange2 = objExcel.Range("A1")
Set objRange3 = objExcel.Range("B1")
Set objRange4 = objExcel.Range("C1")
Set objRange5 = objExcel.Range("D1")

objRange.Sort objRange2,xlDescending,objRange3, ,xlAscending,objRange4,xlDescending,xlYes

But using above code i am able to apply code only till three levels.I want to known how to apply sort on excels sheet for more than 3 levels .

Thanks
KK