Yuri
Thanks
Excel needed repairing
Colin
>Try to add something like this:
>
>>With thisform.OleControl1
>> .Navigate2('file://c:\global\bownetest.xls')
>> Do While .ReadyState # 4 or ;
> type(".object.document")#"O" or ;
> isnull(.object.document)
>
>> EndDo
>>endwith
>>
>>oXLS = thisform.OleControl1.object.document
>>oExcel = oXLS.Application
>>
>>Thanks
>>
>>Colin
Specialist in Advertising, Marketing, especially Direct Marketing
I run courses in Business Management and Marketing