or just
ActiveCell.Value = Date
<vbg

Chip Pearson wrote:

Create a button from the Forms command bar, and assign to it the
following macro:

Sub TimeStamp()
ActiveCell.Value = Int(Now)
End Sub

--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

"Tom Meacham" wrote in message
...
I want to create a button that when clicked will enter todays
date in the selected cell. Basically a date stamp button. I
tried doing a macro but it did not work for me. I know the
shortcut of ctrl+; to enter a date but I have others using the
worksheet.

Thanks


--

Dave Peterson