Thanks Cetin I'll give that a whirl

Nick Mason
>>Hi
>>
>>How would I return a list of worksheets from an excel spreadsheet.
>>
>>Thanks
>>
>>Nick Mason
>
>

>lcFileName = GetFile('xls')
>oExcel = createobject('Excel.Application')
>oExcel.Workbooks.Open(m.lcFileName)
>with oExcel.ActiveWorkbook
>  dimension aSheets[.Sheets.Count]
>  for ix=1 to .Sheets.Count
>    aSheets[m.ix] = .Sheets(m.ix).Name
>  endfor
>endwith
>oExcel.quit
>disp memo like aSheets
>

Cetin