how to add next month using this formula

[Legacy 185509]

Hi
this formula will generate next month
if cell D1 = 5/1/2011
and if you put this formula in E1

=DATE(YEAR('D1'), MONTH('D1')+1, DAY('D1'))

we will get 6/1/2011

I want to know how can I use this formula to change month on D1
like
First it will may than it will June and soo on...

Sub NextMonth()
    Range("D1").FormulaR1C1 = "=DATE(YEAR(D1), MONTH(D1)+1, DAY(D1))"
    'Range("D2").FormulaR1C1 = Range("D2")
End Sub

 

[jim may]

Check out the Formula =EDate(D1,1)

 

[Legacy 185509]

they nice and short formula, even better
but how can I make Macro which will use this formula to change to next month
I am putting in loop I want it to change 3 times
so 3 months
plz help

 

[jim may]

=EDate(D$1,1)
=EDate(D$1,2)
=EDate(D$1,3)