Insert today's date with button, as date, not function?

Question

I use this VBA:

ActiveCell.FormulaR1C1 = \"=NOW()\"
ActiveCell.Offset(1, 0).Range(\"A1\").Select

But the value of the cell becomes =NOW()

Answer 1

Consider:

ActiveCell.Value=Now