Private Sub Worksheet_Change(ByVal Target As Range)
'If Target.Address = "$G$10" Then Range("H10") = Now
If Not Intersect(Range("G10:G13", Target)) Is Nothing And Target.Count = 1 Then
Target.Offset(0, 1) = Now
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
'If Target.Address = "$G$10" Then Range("H10") = Now
If Not Intersect(Range("G10:G13"), Target) Is Nothing And Target.Count = 1 Then
Target.Offset(0, 1) = Now
End If
End Sub