oExcel=CREATEOBJECT("Excel.Application") oExcel.visible=.t. oWorkbook=oExcel.Workbooks.add() oSheet=oWorkbook.worksheets[1] oSheet.Range("A1").value=ALLTRIM(thisform.cbo_userdept1.DisplayValue)+[ - Patient Check List] oSheet.Range("A2").value=[CQI Solutions, Inc.] lnFields=AFIELDS(laFields2) lnRow=4 FOR x= 1 TO lnFields oSheet.Range.cells(lnRow,x).value=laFields2[x,1] ENDFORThe single line inside the loop bombs with an OLE invalid number of parameters message.