Hello waterserv,

Thank you again.

I do not why but it does not work for me... Even when I just try to change a date you have already entered.

He gives me the same 'runtime error' and marks

this row

With .[a4].Offset(, DateDiff("d", CDate("01.01.2011"), cl.Value))
yellow...


Dou you know the solution?
Do you use Excel 2007?

Thank you for your support.