Append info in all worksheets in workbook in one sheet

[Guest]

I have a workbook that has about 20 worksheets within it. I'd like to
append the information from each worksheet into one worksheet and in column
A, I'd like the name of the source worksheet to be displayed. I'm not sure
where to start.

Thanks in advance,
Barb Reinhardt

 

[Ron de Bruin]

Hi Barb

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

Or with formulas
http://www.rondebruin.nl/summary2.htm

 

[Guest]

Ron,

I don't have a "MASTER" worksheet in the workbook and I'm getting a message
that it exists:

The first time I run through this

Debug.Print Len(ThisWorkbook.Worksheets.Item("Master").Name)
I get a value of 6

Suggestions?

Barb

 

[Guest]

Oops, I see where it created the MASTER sheet. Never mind.

 

[Guest]

Ron,

I've got this snippet of code

DestSh.Cells(Last + 1, "A").Value = sh.Name
DestSh.Range("A" & Last).Copy

Last1 = lastrow(DestSh)
-> Range("A" & Last & ":" & "A" & Last1).Select

Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


I get Runtime error 1004
Method "Range" of object "_worksheet" failed

at the line with the arrow. What am I missing?

Thanks,
Barb

 

[Ron de Bruin]

Hi Barb

Show me the complete macro that you use

 

[Guest]

I got it figured out. Thanks

Hi Barb

Show me the complete macro that you use