Append info in all worksheets in workbook in one sheet

  • Thread starter Thread starter Guest
  • Start date Start date
G

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,

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
 
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
 
Back
Top