View Full Version : Simple Sheet copy problem: Workbook to Workbook
phickman
12-09-2010, 07:02 AM
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
12-09-2010, 07:07 AM
From anywhere
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
phickman
12-09-2010, 07:10 AM
wow! Thanks a lot. So it is a pretty simple problem!
Thanks again,
Pete
Powered by vBulletin® Version 4.2.5 Copyright © 2024 vBulletin Solutions Inc. All rights reserved.