Hi Howard,

Am Thu, 25 Apr 2013 20:37:42 +0200 schrieb Claus Busch:

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

sorry, but I forgot a $ character. Change the line above:
..Formula = "=VLOOKUP(B4,Sheet1!$E$1:$F$" & _
Sheet1.Range("F" & Rows.Count).End(xlUp).Row & ",2,0)"

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