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