>Hi Terry,
>
>Thanks for the suggestion. I had tried that because that is the code that I got from recording a macro.
>
>But it returns the error: "Unkown name". So it might work as a Excel macro but not as a VBA command issued from VFP.
>
>Have a nice day.

Okay - lets try again. This works with a new sheet - check to make sure you closed your parens.

oldOnError=on('error')
on Error oExcel=.NULL.
oExcel=getobject(,'Excel.Application')
on error &oldOnError
if isnull(oExcel)
   oExcel=createobject('Excel.Application')
endif
With oExcel
.WorkBooks.Add
.displayalerts=.f.
nWorkBookSheets=.Sheets.Count
for c=nWorkBookSheets to 2 step -1
.sheets(c).delete
endfor
.Cells(1,1).Value=[Insert row above this line]
.Range("A1").Select
.Selection.EntireRow.Insert
oExcel.Visible=.t.
endwith