oXls=CREATEOBJECT("excel.application") oXLS.Application.Workbooks.Add() oXls.visible=.t. oSheetToCopy = oXls.Worksheets("sheet1") && object reference to the sheet we want to copy oSheetToCopy.Range("A1").value = "Test" && add some text lnWorksheets = oXls.Worksheets.count && get total number of worksheets FOR i = 1 TO 10 oSheetToCopy.copy(,oXls.Worksheets(lnWorksheets)) && copy after last worksheet lnWorksheets = lnWorksheets + 1 && increase counter oXls.Worksheets(lnWorksheets).name = "sheet"+ALLTRIM(STR(lnWorksheets)) && rename added worksheet ENDFOR &&* i = 1 TO 10HTH