Moving tabs to another workbook

[krishna334]

Hi All,
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o> </o>
I have 2 excel files “Test” and High Value in a specific folder in my D drive.
“Test” is a blank workbook.
“High Value” has 2 tabs – “Days” & “Value”.
What I need is a macro in which can move both the tabs in High Value to Test.
Hope this is simple.
<o> </o>
Advance Thanks for any help.

 

[Trevor G]

Try this, make sure the one that has the tabs in is opened second

Sub Macro1()
' Move sheets
Dim ws1 As Workbook
Dim ws2 As Workbook
Set ws1 = "D:\Path\.xls"
Set ws2 = "D:\Path\.xls"
Workbooks.Open ws1
Workbooks.Open ws2

Sheets(Array("Days", "Values")).Select
Sheets("Values").Activate
Sheets(Array("Days", "Values")).Move Before:=Workbooks(ws1).Sheets(4)
End Sub

 

[krishna334]

Thanks Trevor.

Cna u please modify the code if the location of both the files is D:\test

 

[Trevor G]

Just alter the path yourself and also place in the workbook names where you see ws1 and ws2

so change

"D:\Path\.xls"

To your path and workbook name, you need the .xls after the workbook name