This should do it.

Dim a As Date
a = Range("a1").Value + 1
Range("A1") = a

" wrote:

How do I get a value from a cell (A1) what I want is the day of a date from
the cell to add one ot it and put it back.
thanks all