excelent, this is how i finished it,

Case "REL"
If cells(i, 11).Value = "" Then 'if cell has blank
bankid
cells(i, 16) = cells(i, 5)
mycode = cells(i, 5).Value
cells(i, 11).Formula = _
"=IF(ISERROR(VLOOKUP(" & cells(i, 16).Address & _
",
ClientList,1,False)),""Fiserv"",VLOOKUP(" & _
cells(i, 16).Address &
",ClientList,1,False))"
cells(i, 17) = cells(i, 2)

Dim w, s, r, rw
s = cells(i, 17).Value
rw = Sheets("Projects").cells(65500,
1).End(xlUp).Row
Set w = Sheets("Projects")
For Each r In w.Range("A2:B" & rw)
If r.Value = s Then
cells(i, 12).Value = r.Value
cells(i, 13).Value = r.Value
Exit For
End If
cells(i, 12) = "Bad"
Next r
End If

Thank you so much for your help.

Keri