Tying to Edit Code

[Frith]

Hi,

Would anyone know how to have this code execute only ONCE? As it is, it auto-enters a date-stamp EVERY time a cell in column B is double-clicked. I just need it to do this ONLY on the INITIAL cell edit.

Thanx!
Frith


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim TimeStr As String
If Target.Column = 1 Then
Target.Offset(, 1) = Now
End If
If Target.Column = 1 Then
Target.Offset(, 3) = Now
End If

 

[Jonmo1]

Try

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim TimeStr As String
With Target
    If .Column = 1 Then
        If Len(.Offset(,1)) = 0 then 
            .Offset(, 1) = Now
            .Offset(, 3) = Now
        End If
    End If 
End With

Hope that helps.

 

[Frith]

Thanx a lot!