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.


In article ,
in_trouble wrote:

How can I enter todays date with a macro, without the date updating tomorrow?