oExcel=CREATEOBJECT("Excel.Application") With oExcel .DisplayAlerts= .F. .WorkBooks.Open(XLSFile,0) FOR iTabor= 1 TO 100 .Sheets.iTabor.Select() ENDFOR