Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("I1")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
Target.Offset(, 1) = Date
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("I1")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
Target.Offset(, 1) = Date
End If
End Sub