sName = "C:\Myfolder\Helix.xls"
set bk = workbooks.open(sname)
for each sh in bk.worksheets
set rng = sh.columns(2).Find(What:=sBrandName)
if not rng is nothing then
msgbox "Found at " & rng.address(external:=true)
myprice = rng.offset(0,2)
exit for
end if
Next

--
Regards,
Tom Ogilvy


"Akader" wrote:

Hi all

Can you please help me for this Issue?

I have many Price list files, and I have other quote file.

I am make new quote for any items for Example

Item# brand Qty Price

15004 Helix 10 ??
54055 Matrix 5 ??

My question is :

How can I tell excel to open the excel file and get name file name from
brand and search for the item in that file and give me the price for that
items


Helix.xls
Matrix.xls

Etc.


Many Thanks to everybody