How do I use VLOOKUP in VBA instead of as a formula

[Ruts]

Ok I am trying to write a result into a range of cells as I think this is more efficient than writing the formula and having it recalc all the time.

The current code is below:

ActiveCell.FormulaR1C1 = _
   "=IF(ISERROR(VLOOKUP(RC[-1],C11:C12,2,FALSE)),""Not Found"",VLOOKUP(RC[-1],C11:C12,2,FALSE))"

How do I write this more efficiently so that the active cell only has the result written to it instead of the formula ?

Currently this formula is written in up to 60,000 cells - makes for a slow process time.

 

[sanrv1f]

try

ActiveCell = _
   EVALUATE("=IF(ISERROR(VLOOKUP(RC[-1],C11:C12,2,FALSE)),""Not Found"",VLOOKUP(RC[-1],C11:C12,2,FALSE))")

note: the values wont get refreshed automatically, when there a change in Lookup table