John Davis
Well-known Member
- Joined
- Sep 11, 2007
- Messages
- 3,457
Hello All:
I have the code below it's not working. Can anyone provide any input why this is not doing what it is supposed to do?
Workbooks.Open Filename:="D:\Common\data\IBMmain\OCEAN-BP.xls"
Rows("1:1").Delete
Workbooks.Open Filename:="D:\Common\data\IBMmain\OCEAN-HEADER.xls"
Rows("1:5").Copy
Windows("OCEAN-BP.xls").Activate
Rows("1:5").Select
ActiveSheet.Paste
ActiveWorkbook.Close
I have the code below it's not working. Can anyone provide any input why this is not doing what it is supposed to do?
Workbooks.Open Filename:="D:\Common\data\IBMmain\OCEAN-BP.xls"
Rows("1:1").Delete
Workbooks.Open Filename:="D:\Common\data\IBMmain\OCEAN-HEADER.xls"
Rows("1:5").Copy
Windows("OCEAN-BP.xls").Activate
Rows("1:5").Select
ActiveSheet.Paste
ActiveWorkbook.Close