Simple Sheet copy problem: Workbook to Workbook

[phickman]

I have the following problem (this is a work-around for something else
so it may not make much sense):


From Workbook A copy sheets 1 and 8 to Workbook C
From Workbook B copy sheets 2,3,4,5,6,7 to Workbook C

Also I'm not sure of where this VBA should run
for the simplest coding; from A, B or C?

cheers, Pete

[Bob Phillips]

From anywhere

[VBA]

With Workbooks("C.xls")

Workbooks("A.xls").Worksheets("Sheet1").Copy After:=.Worksheets(.Worksheets.Count)
Workbooks("A.xls").Worksheets("Sheet8").Copy After:=.Worksheets(.Worksheets.Count)
Workbooks("B.xls").Worksheets("Sheet2").Copy After:=.Worksheets(.Worksheets.Count)
Workbooks("B.xls").Worksheets("Sheet3").Copy After:=.Worksheets(.Worksheets.Count)
Workbooks("B.xls").Worksheets("Sheet4").Copy After:=.Worksheets(.Worksheets.Count)
Workbooks("B.xls").Worksheets("Sheet5").Copy After:=.Worksheets(.Worksheets.Count)
Workbooks("B.xls").Worksheets("Sheet6").Copy After:=.Worksheets(.Worksheets.Count)
Workbooks("B.xls").Worksheets("Sheet7").Copy After:=.Worksheets(.Worksheets.Count)
End With
[/VBA]

[phickman]

wow! Thanks a lot. So it is a pretty simple problem!

Thanks again,

Pete