>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