>Hi everybody,
>
>I think I had a program working yesterday correctly. Today I was working on other things and only now I've been trying to use the program. I've tried for 2 hours already and it's not working.
>
>I can not even make the Excel visible to see what's going on. I added loExcel.visible = .t., but it shows somethat empty Excel without anything.
>
>In my cursor I have 207 records. However, in my Excel output I only have 34 first records. Could it be that UsedRange doesn't work properly or something else is wrong?
>
>I need a second set of eyes to help me debug it.
>
>Could anyone please help?
>
>Thanks in advance.

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