Macro to create month

[lprabhu1107]

Hi,

Iam trying to create a macro for the following

CELL A1: Should display current month (Jun-11)
CELL B1: Should display next month (Jul-11)
CELL C1: Should display next to next month (Aug-11)

I have the code for Cell A1.

Sub NewBook1()
Range("A1") = Format(Date, "mmm-yy")
End Sub

Can you ps help with the code for next month and next to next month

Prabhu

 

[VoG]

Try

Sub NewBook1()
Range("A1").Value = Format(Date, "mmm-yy")
Range("B1").Value = Format(DateAdd("m", 1, Date), "mmm-yy")
Range("C1").Value = Format(DateAdd("m", 2, Date), "mmm-yy")
End Sub

 

[lprabhu1107]

Hi...Thank you very much....it worked

 

[chuckles1066]

What's wrong with

=A1+31

dragged across?

 

[VoG]

What's wrong with

=A1+31

dragged across?

Working for February? Plus it will update every day.