Sub FixDate()
ActiveCell.Value = Date
End Sub

somethinglikeant


Nospam wrote:

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

--
Nospam