set strictdate to 0 messagebox(alltrim(gethebdate({12/16/1969}))) set strictdate to function gethebdate lparameters djdate local chebdate set strictdate to 0 objexcel= createobject("Excel.Application") oworkbook = objexcel.workbooks.open('c:\c.xls') osheet = oworkbook.activesheet osheet.cells(3,2).value= djdate chebdate=osheet.cells(3,3).value objexcel.quit return chebdate endfuncIt's work fine but Excel ask me if to save the change and its very unnecessary service for me.