if the error is on that line of code, then you don't have a workbook named
Summary.xls. I used that name as an example. You would need put the name
of the workbook you want to use as well as designate which sheet in that
workbook to use.

--
Regards,
Tom Ogilvy
"Tom Ogilvy" wrote in message
...
Workbooks("Summary") _
worksheets(1).Cells(rows.count,1).End(xlup)(2)

should be

Workbooks("Summary.xls") _
.worksheets(1).Cells(rows.count,1).End(xlup)(2)

add .xls and put a period before worksheets

--
Regards,
Tom Ogilvy
"Tom Ogilvy" wrote in message
...
for each sh in ActiveWorkbook.Worksheets
sh.cells(1,1).CurrentRegion.Copy _
Destination:=Workbooks("Summary") _
worksheets(1).Cells(rows.count,1).End(xlup)(2)
Next

--
Regards,
Tom Ogilvy

"Importing Worksheets into Excel" <Importing Worksheets into
wrote in message
...
Here's my situation. I have several Excel files that are downloaded
from
a
website daily. These files have any where from 1 to 6 tabs in each
file
and
NEVER exceed 5,000 records per tab. Meaning the most records
downloaded
would never exceed 30,000. Each day it's different though, one day it
could
be 3 tabs the next day it might only be 1.
How would I be able to import these automatically into another Excel
file
and have the code look at all the tabs that are within the downloaded
file?
The range would always be columns A - AK and as stated, would never go
beyond
5,000 rows per tab. It's just the number of tabs that's changing.

ANY help would be so greatly appreciated!!! Thanking you in advance
for
your valuable time!!
JCarter