Although you don't say what your problem  is, I'm guessing it's the
VLOOKUP line that's failing on you. The reason is that the third
argument needs a number  - not a range - just like the worksheet  formula.
So Mycol needs to be dimmed as an Integer and - as far as I can work out
from what you're doing - assigned the value of 2.