Excel Question

[Oli Oshiz]

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.

 

[Tom Ogilvy]

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