oExcel = createobject("Excel.application") with oExcel .visible = .t. .workbooks.add && Add a new workbook with .activeworkbook lnCurrentSheetCount = .sheets.count .sheets.add(,.sheets(lnCurrentSheetCount),15) && Add 15 new sheets after old ones for ix = lnCurrentSheetCount + 1 to .sheets.count .sheets.item(ix).name = "MyAddedSheet"+padl(ix-lnCurrentSheetCount,2,"0") endfor endwith endwithCetin