I've never test this but for the range to work I think you can do lik
this:

StockCode = Item
with Sheets("STOCK")
lookup1 = Application.WorksheetFunction.VLookup(Item, _
.Range(.Columns("A:a"), .Columns("e:e")), 5,False)
end with

Best regards

--
hidek
-----------------------------------------------------------------------
hideki's Profile: http://www.excelforum.com/member.php...fo&userid=1890
View this thread: http://www.excelforum.com/showthread.php?threadid=40139