How to remove date in one cell when another cell's contents are cleared.

Hello,

I have a drop down list in the cells of column E. When I select a item from the drop down list, the date is inserted into the cell of the same row in column B. I would like to adjust the code to also remove the date in the cell of column B when I delete the contents of the cell in the same row in column E.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub

If Not Intersect(Target, Range("E43:E100000")) Is Nothing Then

With Target(1, -2)

.Value = Date


End With

End If

End Sub

Thank you,

John

ok

Try this sample:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub

If Not Intersect(Target, Range("E1:E100000")) Is Nothing Then

If Target <> "" Then
Target(1, -2).Value = Date
Else: Target(1, -2).Value = ""
End If

End If

End Sub

mehmetcik,

Thank you very much. It worked just as I wanted.

Thank you again,

John