One way:

With ActiveSheet.Range("C10")
.Value = DateAdd("m",1,.Value)
End With

Another way

With ActiveSheet.Range("C10")
d = .Value
.Value = DateSerial(Year(d), Month(d) + 1, Day(d))
End With

On Mon, 25 Oct 2004 13:16:35 -0500, Minitman wrote:

Greetings,

I have a worksheet with a date in C10 in mmm/yyyy formant. I made a
CommandButton (NextMonth) to advance the date by 1 month. I have a
problem, I used +30 to advance which works for the short term.
However, I am going back 12 years and getting a lot of errors in the
date.

Is there anyway to advance by one month at a time?

Any help would be appreciated.

TIA

-Minitman