daltek,
You don't need a macro, unless you want one.
The keyboard shortcut to insert the current date as text is [ctrl]; (semi-colon).
If you want a macro - I record typing in the formula
=today()
copy it
paste special, value
stop macro results in:
ActiveCell.FormulaR1C1 = "=TODAY()"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
There maybe "cleaner" code to do the same thing.
Hope this helps.
AngO