Get a button from the Forms toolbar, and when you put it on the worksheet it
asks to assign a macro, so assign this one

Sub CheckDate()
With Activecell
If .Text = "" Or .Value < Date Then
.Value = Date
End If
End With
End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"edwardpestian"
wrote in message
news:edwardpestian.2a3wu1_1151488810.0701@excelfor um-nospam.com...

I need a button that when pressed inserts today's date in a specific
cell - only if its less than today's date or blank. If its already
today's date, then do nothing. I have the following code that I've used
to insert the date upon opening a workbook, but I can't seem to get it
to work attached to a button..

Private Sub Workbook_Open()
Dim cell As Range
Set cell = Worksheets("Sheet1").Range("A1")
If cell.Text = "" Then
cell.Value = Date
End If
End Sub

Thanks.


--
edwardpestian
------------------------------------------------------------------------
edwardpestian's Profile:
http://www.excelforum.com/member.php...o&userid=33809
View this thread: http://www.excelforum.com/showthread...hreadid=556384