Sub EE()
Dim i As Integer
For i = 2 To 100
Range("E" & i).FormulaR1C1 = _
"=IF(R[1]C[-4]="""","""",IF(ISNA(VLOOKUP(R[1]C[-4],SheetName!C[-4]:C[-2],2,FALSE)),""Not Found"",VLOOKUP(R[1]C[-4],SheetName!C[-4]:C[-2],2,FALSE)))"
Range("E" & i) = Range("E" & i).Value
Next
End Sub
|