datestamp on cell CHANGE

[ralphg]

hi I Have the following code which datestamps even if I just click on the cell
I need it to only datestamp if the value of the cell changes

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 5 Then
Cells(Target.Row, 14).Value = Date
End If

thanks in anticipation

[omp001]

Hi. Try this instead.

[VBA]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 5 Then Exit Sub
Cells(Target.Row, 14).Value = Date
End Sub[/VBA]

[ralphg]

Hi. Try this instead.

[VBA]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 5 Then Exit Sub
Cells(Target.Row, 14).Value = Date
End Sub[/VBA]

Ok Thanks that seems to work differently but I don't see why???

[omp001]

Your original code is triggered as you select a cell in column 'F' (Worksheet_SelectionChange).

The code I suggested is triggered as a cell value is changed in column 'F' (Worksheet_Change)