Teresa,

Here is a previous post that uses FSO to get the files from a folder. Just
add the copy code into this

http://tinyurl.com/6f2wa

--

HTH

RP
(remove nothere from the email address if mailing direct)


"teresa" wrote in message
...
The "List " Tab contains a list of 20 Jobs

I want to loop through the "List" Worksheet in every workbook in a folder,
copying the list to a "Consolidated" Tab.

So if "List" in Wbk1,Wbk2,Wbk3 has 20 Jobs.
Then list in "Consolidated" has 60


sub consolidate()

set path = "c/My Documents"

for each wbk in path
wbk.Sheets("List").Range("a1:a20") copy paste:
Workbooks("Consol").WorkSheets("ConList")

End Sub