Copying multiple cells out of multiple worksheets at same time.
 

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

Copying multiple cells out of multiple worksheets at same time.
 

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("a1:o75").copy ds.cells(lr,1)
end if

next

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"tom" wrote in message
...
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