You're welcome.

>It worked fine.
>Exactly what I need.
>Many Thanks!
>
>>

>>oExcel = CreateObject("Excel.Application")
>>oWorkbook = oExcel.Workbooks.Open(lcXlsFile)
>>FOR i= 1 TO oWorkbook.Sheets.Count
>>	? oWorkbook.Sheets(i).Name
>>ENDFOR
>>oExcel.Quit()
>>

>>
>>>I'm wondering if there is a way to get
>>>the sheet names from a XLS file.
>>>Any idea?