update cells to today date in a list of dates

B

Bill

I have a list of dates I review daily and want to be able to click on an icon
or button beside each date to update it to todays date and not change the
other dates.
 
P

protonLeah

assign the following two-liner to a button and use it for any cell
rather than a button for each cell:

Sub refresh_date()
Dim sDate As String
ActiveCell.Value = Format(Now(), "yyyy-mmm-dd")

End Su
 
Top