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