>I am currently running into difficulty while trying to rename each of the individual worksheets within a multiple worksheet workbook. Any assistance would be gladly appreciated....
>
>Thanks
>
>Maurice B Bernhard

* VFP7 code
Local loXL AS Excel.Application, lnIndex

loXL=CreateObject('Excel.Application')
loXL.Visible= .t.
loXL.Workbooks.Add
For lnIndex = 1 To loXL.ActiveWorkbook.Sheets.Count
	loXL.ActiveWorkbook.Sheets(lnIndex).Name = 'sheet_'+Transform(lnIndex)
EndFor

HTH