[vba]
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x As Date
If Not Intersect(Target, Me.Range("W:W")) Is Nothing Then
If Target.Value2 = 1 Then
Me.Cells(Target.Row, "L").Value = Now()
End If
End If
End Sub
[/vba]
[vba]
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x As Date
If Not Intersect(Target, Me.Range("W:W")) Is Nothing Then
If Target.Value2 = 1 Then
Me.Cells(Target.Row, "L").Value = Now()
End If
End If
End Sub
[/vba]
____________________________________________
Nihil simul inventum est et perfectum
Abusus non tollit usum
Last night I dreamed of a small consolation enjoyed only by the blind: Nobody knows the trouble I've not seen!
James Thurber
Posting Permissions
Reply With Quote