syntax to add the first day of the following month

[vamedic11]

I am trying to find out if there is a way to tell excel to add the first day of the upcoming month when I execute a macro. For example, today is 19 August 2012. If I execute the macro today can I get it to automatically add 1 September 2012 to cell D1?

Here is my existing macro:

    Range("B1:BM1,D3:BM4,D6:BM67").Select
    Range("BM1").Activate
    Selection.ClearComments
    Selection.ClearContents
    Range("D1").Select

[jeffreybrown]

One way

Sub NextMonth()
    Range("D1").Value = DateSerial(Year(Date), Month(Date) + 1, 1)
End Sub

[vamedic11]

Excellent. It fit in PERFECTLY!

[jeffreybrown]

Glad to hear it worked out for you and thanks for the feedback