What error message? Where?

>i try as under , i think rong position
>i see the same error message
>

>oExcel = CREATEOBJECT("Excel.Application")
>DIMENSION MyExcelFiles[5]
>
>MyExcelFiles[1] = "e:\a.XLS"
>MyExcelFiles[2] = "e:\b.XLS"
>MyExcelFiles[3] = "e:\C.XLS"
>MyExcelFiles[4] = "e:\d.XLS"
>MyExcelFiles[5] = "e:\e.XLS"
>
>oExcel.WorkBooks.Open(MyExcelFiles[1])
>oActive = oExcel.ActiveWorkbook.Name
>*oExcel.ActiveWorkbook.SaveAs(lcNewXlsName)&&&
>
>FOR nXLS = 2 TO 5
>    ** Because COPY TO XL produce only one sheet we must insert a new one here
>    oExcel.ActiveWorkbook.Sheets.Add()
>    oExcel.WorkBooks.Open(MyExcelFiles[nXLS])
>    cNewBook = oExcel.ActiveWorkbook.Name
>    oExcel.ActiveWorkbook.ActiveSheet.Cells.Select()
>    oExcel.Selection.Copy()
>    oExcel.Windows(oActive).Activate
>    oExcel.ActiveWorkbook.ActiveSheet.Paste()
>    oExcel.Windows(cNewBook).Activate
>    oExcel.ActiveWorkbook.Close()
>    oExcel.Windows(oActive).Activate
>NEXT
>*oExcel.ActiveWorkbook.Save()
>oExcel.ActiveWorkbook.SaveAs(lcNewXlsName)&&&&
>
>oExcel.Quit()
>oExcel = NULL
>RELEASE oExcel
>
>