syntax code for date

[gill123]

Hi All,

I am recording a macro and it will run 1st day of the month. For example it's pulling PI data on 6/1/2016 and in column A3, i would like to populate "7/1/2016" when I run it on July 1st. What code do i need, in order for macro to do that.

Current Macro example:

Sub Macro1()
'
' Macro1 Macro
'

'
Range("A2").Select
ActiveCell.FormulaR1C1 = "7/1/2016"
Range("A3").Select
End Sub

Thank you

[Pango]

Try:

With Range("A2") 'This could be a multiple cells if you needed - "A2:A3", etc.
        .Value = Date
        .NumberFormat = "mm/dd/yyyy"
End With