cCell="A"+sRowID .Range(cCell).Select() .Range(cCell).Value= DATE(1990,01,01)&& CTOD(sA)this code should place 1/1/90 in the A9 cell
>> oExcel=CREATEOBJECT("Excel.Application")
>> With oExcel
>> .DisplayAlerts= .F.
>> .WorkBooks.Open(ALLTRIM("C:\Daas\Absorb_2005new.xls"),0)
>> .Sheets(ALLTRIM(" Buffing")).Select()
>> DO PopulateExcelArray
>> .Quit
>> EndWith
>> Release oExcel
>>Edgar L. Bolton, B.S. B.B.A.