VBA Copy Worksheet from workbook to another

[ziad alsayed]

dear all

i have 2 workbooks, the first is named TopTen1, which i am working in. the second is named TopTen2.

need to open the TopTen2 Workbook from the TopTen1 Workbook and Everytime copy the "Sheet1" To the TopTen1 Workbook and pur at the end and name it TopTen2

how can i write the below Code in a Better Way

Workbooks.Open Filename:="C:\Users\dv7\Desktop\TopTen2.xlsm"
    Sheets("Sheet1").Select
    Sheets("Sheet1").Copy After:=Workbooks("TopTen1macro.xlsm").Sheets(6)
    Sheets("Sheet1").Select
    Sheets("Sheet1").Name = "Topten2"
    Range("B19").Select

Appreciate any help

 

[VoG]

Hi. Try this

Workbooks.Open Filename:="C:\Users\dv7\Desktop\TopTen2.xlsm"
Sheets("Sheet1").Copy After:=Workbooks("TopTen1macro.xlsm").Sheets(Sheets.Count)
ActiveSheet.Name = "Topten2"

 

[ziad alsayed]

thank Vog, this is working

need also to close the TopTen2 workbook.

 

[VoG]

Try this

Workbooks.Open Filename:="C:\Users\dv7\Desktop\TopTen2.xlsm"
Sheets("Sheet1").Copy After:=Workbooks("TopTen1macro.xlsm").Sheets(Sheets.Count)
ActiveSheet.Name = "Topten2"
Workbooks("TopTen2.xlsm").Close savechanges:=False

 

[ziad alsayed]

thanks Vog.