Bob

you could try something like:

Range("A1").Value = Evaluate("=DATE(YEAR(A1),MONTH(A1)+1,DAY(A1))")


Regards

Trevor


"Robert Christie" wrote in message
...
Hi
Running the code below on cell C2 containing today's date
of 12-10-2004 changes cell value to 05-10-2004.
Running code a second time changes cell C2 value to 05-09-
2004

Dim dt As Date
dt = [C2].Value
[C2].Value = dt - Day(dt - 5)

How do you alter the code to achieve similar changes, but
increase the dates value?.
i.e. 01-10-2004 to 05-10-2004 run code again to increase
by a month to 05-11-2004.

TIA

Bob C