I am trying to pull information from specific cells on an excel
spreadsheet A to excel spreadsheet B. The problem I am facing is that
excel spreadsheet A has multiple tabs (about a hundred with all data in
exactly the same location on each tab) and cannot figure out a way to
pull the information using a macro onto 1 tab on excel spreasheet B.

Does anyone know what I can do?

Thanks.

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

Dim sh as Worksheet, rng as Range
for each sh in workbooks("spreadsheetA.xls")
With workbooks("speadsheetb.xls").Worksheets(1)
set rng = .cells(rows.count,1).End(xlup)(2)
end with
sh.Range("A1").CurrentRegion.Copy _
Destination:=rng
End With
Next

--
Regards,
Tom Ogilvy

"Oli Oshiz" wrote in message
...


I am trying to pull information from specific cells on an excel
spreadsheet A to excel spreadsheet B. The problem I am facing is that
excel spreadsheet A has multiple tabs (about a hundred with all data in
exactly the same location on each tab) and cannot figure out a way to
pull the information using a macro onto 1 tab on excel spreasheet B.

Does anyone know what I can do?

Thanks.

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!