Hi Folks.

Here is some VBA code that I actually received from someone on the excel forum. I've had to change references and what not as I'm using a different workbook now. I'm not sure what I have wrong but I wonder if you can tell what I'm trying to do from the code I wrote? I'm trying to get a date stamp (just the date) to code in Column U if the cell in Column J says "Withdrawn" or "Transferred". See the workbook attached. Any idea where I'm going wrong?

Thanks.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 11 Or Target.Row = 1 Or Target.Value = "Verified" Or Target.Value = "In Process" Then Exit Sub
Dim wsPD As Worksheet: Set wsPD = Worksheets("Product Data")
Dim r As Range, lr As Long, rngData As Range, blnFnd As Boolean
With wsPD
lr = .Cells(Rows.Count, "J").End(xlUp).Row
Set rngData = .Range("J2:J" & lr)
End With
For Each r In rngData
If r.Value = "Withdrawn" Or "Transferred" Then
r(1, 21).Value = Date
blnFnd = True
End If
Next r

End Sub