merging worksheets onto one

[Guest]

Hi. I have several worksheets within in one book. While no single worksheet
is very long, there are about 50 of them. Is there a way to autmate
assembling them all onto one worksheet page? Thanks.

 

[Ron de Bruin]

Try
http://www.rondebruin.nl/copy2.htm

 

[Tom Ogilvy]

Dim sh as Worksheet, sh1 as Worksheet
Dim rng as Range
worksheets.Add
set sh = Activesheet
for each sh1 in Worksheets
if sh1.Name <> sh.Name then
set rng = sh.Cells(rows.count,1).End(xlup)(2)
sh1.UsedRange.Copy
rng.PasteSpecial xlValues
rng.PasteSpecial xlFormats
end if
Next