Could some one pls tell me how to go about this ???

xtenv = activecell.value
ActiveCell.Offset(0, 2).Formula = "=VLOOKUP(xtenv,CODE,2,FALSE)"

I want to automatically lookup values in the active cell however the above command does not get me the right answer... where could i be wrong

thanks