For Next Loop not Working

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

Re-submitting this code with the proper tags...

Please Login or Register  to view this content.

Ah thanks I forgot VBA starts with 0.

Yes, I want to put a timestamp in Column U IF Column J is "Withdrawn" or "Transferred"...if not those two values...then no date.

Ah, ok. So you're saying because there are two possible values "Withdrawn" and "Transferred" the worksheet_change doesn't work because it's only looking for one value to change?

I'll try what you wrote in a module.

I'm getting this error message in the module I copied from your thread:

Compile Error: Next without For

There is obviously a For in the code...what does this mean?

I figured it out...it was missing an End If clause...

Thank you for your help!