Copying multiple cells out of multiple worksheets at same time.

[tom]

In Excel 2003 I was wondering if it is possible to copy multiple cells A1:O75
in multiple worksheets (sheet1, sheet2, sheet3, etc) and pasting them
Consecutively into one work sheet (all records)?

Thanks for the help.
Tom

 

[Don Guillett]

One at a time with a one click looping macro

for each ws in sheets.count

ds=Sheets("destinationsheetnamehere")
if ws.name<>ds then
lr=ds.cells(rows.count,1).end(xlup).row+1
ws.range("a175").copy ds.cells(lr,1)
end if

next