>Naomi,
>Thsi runs with no error and completes in less than 2 seconds with no error (1380 records - 1380 rows in excel).
>

>Rand(-1)
>Select c.Company,;
>	c.Contact, ;
>	RTRIM(e.First_Name)+' '+Rtrim(e.Last_Name) As eName, ;
>	CAST(Chrtran(e.Notes,Chr(13),'') As m) As Notes ;
>	FROM (_samples+'data\customer') c, (_samples+'data\employee') e ;
>	INTO CURSOR xx ;
>	nofilter
>
>loExcel = Createobject('Excel.Application')
>With loExcel
>	.Workbooks.Add()
>	.Visible =.T.
>	VFP2Excel('xx',.ActiveWorkbook.ActiveSheet.Range('A1'))
>Endwith
>

All I did was to remove the codes added by you in VFP2Excel. I didn't try before removing those lines.
>Cetin

Cetin,

Can you please post again VFP2Excel but without headers? I think I'm using the exact version of your VFP2Excel + I want nice formatting like I had in my other function DBFToExcel (which uses Copy TO)