Analti_Calte

This should work:

Right-click the tab > View Code

Then paste this in:

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("A4")) Is Nothing Then

Else: Range("A5").Value = Time

End If

End Sub


--------------

Edit: You can replace the word "Time" with either "Now" or "Date" depending on how you want the date/time to read.



Edited 1 time(s). Last edit at Monday, July 11, 2011 at 08:59PM by LukeBBC251.