instead of .value use .FormulaR1C1
> cCell="A"+sRowID > .Range(cCell).Select() > .Range(cCell).Value= DATE(1990,01,01)&& CTOD(sA) >