How to get the 1st of the next month's date?

[AA Arens]

How to get the 1st of the next month's date?

I do have this button script:

Private Sub CommandButton4_Click()
ActiveCell.Value = Format(Date, "mm-dd-yyyy")
End Sub

Like today is 24-03-07, push results in 01-04-07

Bart

 

[Bernd]

Hi Bart,

Dateserial(Year(Date),Month(Date)+1,1)

Regards,
Bernd