View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Sean Sean is offline
external usenet poster
 
Posts: 454
Default Display a Date when a cell is Modified

I lifted the code below and tweaked from this NG via Gord Dibben (but
I've done something wrong as it doesn't do anything)

I simply want the date/time that any value is entered/changed in
D9:D144 to display in J24

Could anyone assist? Thanks


Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range("D9:D144")) Is Nothing Then
With Target
If .Value < "" Then
.Range("J24").Value = Format(Now, "dd mmm yyyy
hh:mm:ss")
End If
End With
End If
ws_exit:
Application.EnableEvents = True
End Sub