Debaser, Created a simple test worksheet with the below code - still does not work.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range
On Error GoTo oops
If Not Intersect(Target, Range("B3:E5")) Is Nothing Then
Application.EnableEvents = False
For Each cell In Intersect(Target, Range("B3:E5")).Cells
Cells(cell.Row, "F").Value = Date
Next cell
End If
oops:
Application.EnableEvents = True
End Sub