Copy Worksheets Into Master Workbook

[Guest]

I would like to create a macro that will all copy all of the worksheets in
the current workbook into the master workbook.

Please help me create this macro.

Thank you very much.

 

[Guest]

Sub copyall()

With Workbooks("Master.xls")
sheetcount = .Worksheets.Count

For Each wks In ThisWorkbook.Worksheets
.Worksheets.Add after:=Sheets(sheetcount)
wks.Cells.Copy
ActiveSheet.Select
ActiveSheet.Paste
sheetcount = sheetcount + 1
Next wks

End With
End Sub

 

[Chip Pearson]

Fred,
Try something like

Sub CopyTheSheets()

Dim DestWB As Workbook
Dim WS As Worksheet

Set DestWB = Workbooks("Master.xls")
For Each WS In ThisWorkbook.Worksheets
With DestWB.Worksheets
WS.Copy after:=.Item(.Count)
End With
Next WS

End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting
www.cpearson.com
(email on the web site)