Automatically Timestamp Data Entries in Excel

[jtodd]

Hi I have the folwing code to enter a time stamp when a cell is changed , is there a way of deleting the time stamp if the cell is empty?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim myTableRange As Range
Dim myDateTimeRange As Range
Dim myUpdateRange As Range

Set myTableRange = Range("B2:C10")

If Intersect(Target, myTableRange) Is Nothing Then Exit Sub

Set myDateTimeRange = Range("D" & Target.Row)
Set myUpdatedRange = Range("E" & Target.Row)

If myDateTimeRange.Value = "" Then
   myDateTimeRange.Value = Now
   
   End If
   
 myUpdatedRange.Value = Now


End Sub

 

[Fluff]

How about

Private Sub Worksheet_Change(ByVal Target As Range)
Dim myTableRange As Range
Dim myDateTimeRange As Range
Dim myUpdateRange As Range

Set myTableRange = Range("B2:C10")

If Intersect(Target, myTableRange) Is Nothing Then Exit Sub

Set myDateTimeRange = Range("D" & Target.Row)
Set myUpdatedRange = Range("E" & Target.Row)

If myDateTimeRange.Value = "" Then
   myDateTimeRange.Value = Now
   
   End If
   
 myUpdatedRange.Value = Now
If Target.Value = "" Then Range("D" & Target.Row).Resize(, 2).Value = ""

End Sub