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 aSheetsCetin