Hi Nigel,

I posted something recently that comes close to doing what you want

http://tinyurl.com/gxvc9

In Function FilesToCol, change

sFile = Dir(sPath & "\*.xls")
to
sFile = Dir(sPath & "\Quote*.xls")

Regards,
Peter T


"Nigel" wrote in message
...
Hi,

i was wondering if the following could be achieved?
i have approx 600 excel books all created from a master template.
originally
they were named indiviually as 1234 (job number) & "Quotes & Orders".xls
where later i renamed the template to Quote book giving me job number and
quote book.
example: 1234 Quote Book.xls
the excel books are found in various client folders in 1 parent folder
named
"Clients" in my Company Shared folder on my server.
i need to retrieve ALL specific data from ALL of these books and place in
list form in a single book. the data is found as follows in all books:

Client Name = C1
Job No = C2
Description = C3
Project Date = C4
Job Value = E36
Total Spend = E33
Quoted Hrs = L19
Actual Hrs = M19

Can the be achieved? basically, i will need something to look through the
complete folder, filter out all of these books and retrieve the data.

thanks in advance,

Nigel

P.S.

Also included in the parent folder "Clients" are other excel books for
different tasks so i would need to filter the workbooks by "Quote Book" &
"Quotes and orders" if possible. They are all exactly the same with the
same
ranges only as detailed above, renamed and specific to different projects.

thanks,

Nigel