Excel Ninjitsu

Original Post Date - January 10, 2007

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Target.Offset(, 1) = Time
End If
If Not Intersect(Target, Range("D:D")) Is Nothing Then
Target.Offset(, 1) = Time
End If
End Sub


Word, homey.