copy worksheet and paste in another workbook

[vijay2482]

i have 2 workbooks.
i want to copy the 5th worksheet from the 1st workbook and paste it in the 7th sheet of my second workbook.

how to do this?

thanks in advance

 

[texasalynn]

please give example of sheet names
Sheet5??

 

[Datsmart]

This works on my Test workbooks:

Sub copytest()
'Assign Workbook Variables
    VarW1 = Workbooks(2).Name
    VarW2 = Workbooks(3).Name
'Assign WorkSheet Variables
    VarS1 = Workbooks(VarW1).Sheets(5).Name
    VarS2 = Workbooks(VarW2).Sheets(7).Name
'Copy to Destination
    Workbooks(VarW1).Sheets(VarS1).Cells.Copy _
    Workbooks(VarW2).Sheets(VarS2).Range("A1")
End Sub

Note: Workbooks (2) and (3) are my first and second open workbook. I could not use Workbook(1), since that is my Hidden Macro workbook, "Personal.xls". If you do not use a "Personal.xls" workbook, change (2) and (3) to (1) and (2).

Also, Workbooks (2) and (3) are in the order they were opened, adjust as needed.

 

[vijay2482]

thanks a lot.
your example code helped me to progress in my work