I'm sure you meant this or something similar :)

For Each c In Range("C1:C" & Cells(Rows.Count, 3).End(xlUp).Row)

Mike

"JLGWhiz" wrote:

Sub findNcpy()
Dim c As Range
For Each c In Range("C" & Cells(Rows.Count, 3).End(xlUP).Row)
If c = Range("A1").Value Then
c.Offset(0 2) = Range("B4").Value
End If
Next
End Sub

"wazzo" wrote:

Hi I need some code to look for names in column 3, which match name in
range a1, then if it does inserting value in column 4 from range b2.
Thats it !