"Runtime Error: Subscript Out of Range"

B

bludovico

ChDir "L:\My Documents\AirCanada"
Workbooks.Open Filename:="L:\My Documents\AirCanada\ACA CRO
92004.xls"
Rows("1:1").Select
Selection.Copy
Windows("CROSOpen720.xls").Activate
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Colors = Workbooks("ACA CROS 92004.xls").Colors
Windows("ACA CROS 92004.xls").Activate
ActiveWindow.Clos
 
D

Dave Peterson

Which line gives the error?

That's the line that refers to the thing that excel doesn't think exists.
 
Top