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 !