Tom,
Thank you so much for your assistance. I'm really new to
this and I'm still having problems using your
instructions. Receiving a "Run-Time Erro 9 - Subscript
out of range"

Could you direct me again?

-----Original 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
news:93F07F1C-E04F-4472-A19A-
...
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




.