Bob,

#DEFINE xlDown -4121
oExcel.activesheet.rows(< Row >).Insert(xlDown)

HTH

>oExcel=createobject('Excel.Application')
>With oExcel
> .Workbooks.Open(sys(5)+curdir()+'schedcrossxls.xls')
> .visible = .t.
> .Selection.Insert(-4121)
>
>inserts a single cell....how would I insert an entire row?