Duedate not working with cells with formulas

Hi,
Change

For Each Cell In Range("d2:d11").SpecialCells(xlCellTypeConstants)

to

For Each Cell In Range("d2:d11")

and your code should work. Cells contain fomula will not be evaluated if you use SpecialCells(xlCellTypeConstants)

Tony