Workbooks("Book1.xls").Worksheets("Sheet1").Cells.Copy Workbooks("Book2.xls").Worksheets("Sheet2").Range("A1")
Workbooks("Book1.xls").Worksheets("Sheet1").Copy After:=Workbooks("Book2.xls").Worksheets("Sheet2").
have it overwrite the sheet insead of it renaming it?