Insert Current date

I need a macro that sets the current date in a specific cell.

In cell A1, for example, I need to put the current date. Whenever you use =today() it only inserts the date it was entered, e.g. it doesn't update every time you open the document.

I tried creating a macro that enters =today() into the cell A1, but the problem I have is that it would enter the date, but it would put it in whatever cell was selected. This isn't good enough, as it has to be put into a specific cell, for this example A1.

I need a macro that when it runs (and it ill be be ran everyday) the contents of cell A1 will become the current date.

I may need to edit this in the future so that I can change the updating cell easily from A1 to a different cell.

No it didn't work, but I think I've come up with something:

Sub date3()
'
' date3 Macro
' Macro recorded 17/12/2007 by cannonlab
'

'
    Application.Goto Reference:=Worksheets("Sheet1").Range("A1")
    ActiveCell.FormulaR1C1 = "=TODAY()"
    ActiveCell.Offset(1, 0).Range("A1").Select
End Sub

I am not a programmer, so I'm not sure how much of this I need. I know that the first line takes you to worksheet "sheet 1" & cell "A1", and that the second line inserts the formula into the active cell, but I have no idea what the third line does.

Any ideas?

Thank you very much, that works really well!

Could you explain to me what the code means? I am still not sure exactly what is happening, I am very new to VBA!

Also, in the code I came up with, what does the third line mean?

Hello Roy,
Greetings for the day.

Please let me know where should I add this "Cells(1, 1).Value = Date" instead of ActiveCell.FormulaR1C1 = "=TODAY()".

Below is my code -

Sheets("Details of Build").Select
ActiveCell.FormulaR1C1 = "=Today()"
ActiveCell.Next.Select
Selection.Offset(0, 0).Select

End Sub

Please use code tags when posting to the Forum.

Sheets("Details of Build").cells(1,1).value = Date