Date Macro

[in_trouble]

How can I enter today’s date with a macro, without the date updating tomorrow?

 

[JE McGimpsey]

One way:

Public Sub InsertDate()
With ActiveCell
.Value = Date
.NumberFormat = "dd mmm yyyy"
End With
End Sub

However, simply typing CTRL-; may work for you without a macro.

 

[Stout]

See if this will do it...i'm no expert though

Sub datemacro()
With ActiveCell
.FormulaR1C1 = "=TODAY()"
.Copy
.PasteSpecial Paste:=xlPasteValues
End With
Application.CutCopyMode = False
End Sub