Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Columns.Count > 1 Or Target.Column <> 1 Then Exit Sub
Dim cel As Range
For Each cel In Target
If cel.Value > 0 and WorksheetFunction.IsNumber(cel.Value) Then
cel.Offset(0, 1).Value = Date
End If
Next cel
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
'Modified 3-19-18 5:30 AM EDT
If Not Intersect(Target, Range("A:A")) Is Nothing Then
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
Target.Offset(, 1).Value = Date
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
'Modified 3-19-18 6:00 AM EDT
If Target.Column = 5 Or Target.Column = 8 Or Target.Column = 10 Or Target.Column = 13 Then
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
Target.Offset(, -1).Value = Date
End If
End Sub