-
If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.
copy worksheet and paste in another workbook
- Thread starter vijay2482
- Start date
texasalynn
Well-known Member
- Joined
- May 19, 2002
- Messages
- 8,458
please give example of sheet names
Sheet5??
Sheet5??
Upvote
0
Datsmart
Well-known Member
- Joined
- Jun 19, 2003
- Messages
- 7,985
This works on my Test workbooks:
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.
Code:
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 SubNote: 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.
Upvote
0
Similar threads
- Question
