"=IF(RC[-2]="""","""",IF(R[-13]C[-2]=""WBM""," & vbLf & _
"IF(ISERROR(LOOKUP(R[11]C[-2],Densities!C[-5],Densities!C[-4])),"""",LOOKUP(R[11]C[-2],Densities!C[-5],Densities!C[-4])),"
& vbLf & _
"IF(ISERROR(LOOKUP(RC[-2],Densities!C[-1],Densities!C)),"""",LOOKUP(RC[-2],Densities!C[-1],Densities!C))))"


--
__________________________________
HTH

Bob

"Miree" wrote in message
...
I am using this macro but I have two problems when it runs
1 - If the text being searched for isnt there the it still returns a value
which is wrong
2- If the text being searched for is there but the result fiel is empty it
returns a zero i need it to leave the cell empty

Thank you

"=IF(RC[-2]="""","""",IF(R[-13]C[-2]=""WBM"",LOOKUP(R[11]C[-2],Densities!C[-5],Densities!C[-4]),LOOKUP(RC[-2],Densities!C[-1],Densities!C)))"
Range("H21").Select
Selection.AutoFill Destination:=Range("H21:H39"), Type:=xlFillDefault
Range("H21:H39").Select
Range("H21").Select
End Sub