Cells(i,1) = Format( Item ,"yyyy-mm-dd" )