Hi Howard,

Am Thu, 25 Apr 2013 12:32:53 -0700 (PDT) schrieb Howard:

.Formula = "=VLOOKUP(B4,Sheet1!$E$1:$F$" & _
Sheet1.Range("F" & Rows.Count).End(xlUp).Row & ",2,0)"

Should be C4 not B4

.Formula = "=VLOOKUP(C4,Sheet1!$E$1:$F$" & _
Sheet1.Range("F" & Rows.Count).End(xlUp).Row & ",2,0)"

glad to help.
But nevertheless have a look:
https://skydrive.live.com/#cid=9378A...121822A3%21191
for the workbook Howard_VLOOKUP
There are two macros and two formula suggestions in it.
You have to right-click and download the file because macros are
disabled in SkyDrive


Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2