learning_grexcel
Active Member
- Joined
- Jan 29, 2011
- Messages
- 319
When I run the below code, I get the subject error.
However, when I remove this line from the code - "oldbook.Worksheets("prc").Range("A1").Select" , the code works fine. I'm not sure what the problem is with this line.
However, when I remove this line from the code - "oldbook.Worksheets("prc").Range("A1").Select" , the code works fine. I'm not sure what the problem is with this line.
Code:
Set oldbook = ActiveWorkbook
Set newbook = Workbooks.Add
newbook.Worksheets("sheet1").Name = "org"
oldbook.Worksheets("sheet1").Range("A:A").Copy
newbook.Worksheets("org").Range("A1").PasteSpecial xlPasteValues
oldbook.Worksheets("sheet1").Range("C:C").Copy
newbook.Worksheets("org").Range("B1").PasteSpecial xlPasteValues
newbook.SaveAs Filename:="org2014.xls"
newbook.Worksheets("org").Range("A1").Select
oldbook.SaveAs Filename:="prc2014.xls"
oldbook.Worksheets("sheet1").Name = "prc"
oldbook.Worksheets("prc").Range("A:B").Copy
oldbook.Worksheets("prc").Range("D:E").PasteSpecial (xlPasteValues)
oldbook.Worksheets("prc").Range("A:B").Delete
oldbook.Worksheets("prc").Range("A1").Select
Application.CutCopyMode = False
oldbook.Worksheets("prc").Rows(1).Delete
oldbook.Worksheets("sheet2").Delete
oldbook.Worksheets("sheet3").Delete
newbook.Close savechanges:=True
oldbook.Close savechanges:=True
End Sub