insert current date

[Guest]

Hi,

I am trying to do what I suspect is a simple task and probably making a
meal out of it.

All I want to do is insert the current date into a cell, other than
having to type it.

I recorded a macro;

it has one line in it

ActiveCell.FormulaR1C1 = "=TODAY()"


unfortunately every time I use the macro the previous dates are set to
today's date. Not surprising really when the today() function is used.

I want to insert the date and then have it 'fixed'.

How can I do this please?

Thanks

 

[somethinglikeant]

Sub FixDate()
ActiveCell.Value = Date
End Sub

somethinglikeant

 

[Ron de Bruin]

Hi Nospam

Ctrl ; insert the date

Or with code
ActiveCell.Value = Format(Date, "dd-mmm-yyyy")

 

[Guest]

Hi Nospam

Ctrl ; insert the date

Or with code
ActiveCell.Value = Format(Date, "dd-mmm-yyyy")

Thanks that did the trick

 

[Guest]

Thanks

Sub FixDate()
ActiveCell.Value = Date
End Sub

somethinglikeant