Try the following
Range("L4").value = dateserial(year(L5),month(L5)+1,day(L5))

HTH
"The BriGuy" wrote:

In a macro I would like to add 1 month to a date in another cell. L5 =
3/31/07 so when the macro runs I would like L4 to display 4/30/07. something
like:

Range("L4").Select
ActiveCell. add 1 month to date in L5.

Any ideas??