You would need a macro to be placed in the code module of the worksheet
containing the range. Something like:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C110")) Is Nothing Then Range("A1") =
Date
End Sub
___________________________________________________________________________