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.
Bookmarks