Hi there

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],Sheet2!RC[-1]:R[3]C,2,FALSE)"

This does a vlookup from sheet1 and sheet2.

HTH

Peter
"Lanman6" wrote:

Does anyone have a simple lookup macro for Excel