Enter current date into cell with VBA

[babycody]

Title says it all. I would like for the current date to be entered into a specific cell. The Today() function changes every time a sheet is opened. I want to be able to make a copy of a sheet and keep the date in the cell the same as when the sheet was copied. Thanks for any help.

 

[Tom Urtis]

Modify for cell address and desired format.

Sub Test1()
With Range("A1")
.Value = Date
.NumberFormat = "mm/dd/yy"
End With
End Sub

 

[babycody]

Thanks very much Tom.

 

[Felix_Dragonhammer]

If you wanted to input it into multiple cells, how would you do it? As in, is there a way to do it without writing out the code multiple times?

 

[luizmoraes]

Felix, just changing the Range of Tom example's from A1 to A1:B5, for example.

[COLOR=#333333]Sub Test1()[/COLOR]
[COLOR=#333333]With Range("A1:E5")[/COLOR]
[COLOR=#333333].Value = Date[/COLOR]
[COLOR=#333333].NumberFormat = "mm/dd/yy"[/COLOR]
[COLOR=#333333]End With[/COLOR]
[COLOR=#333333]End Sub[/COLOR]