http://msdn.microsoft.com/library/de...lywhenisit.asp Try this. If you're not up for reading it, the code would be: Sub CopyWorksheet_Click() Range("A1").FormulaR1C1 = Now End Sub