macro help

[JWARD]

the following macro works fine if i close excel and restart so its alway going to book2, how do i change this to run without restarting excel?



Application.DisplayAlerts = False
ChDir "Z:\jeffw"
Workbooks.OpenText FileName:="Z:\jeffw\CUST.TXT", Origin:=xlWindows, _
StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 2), Array(11 _
, 2), Array(43, 2))
Workbooks.Add
Windows("CUST.TXT").Activate
Columns("A:C").Copy
Windows("Book2").Activate
ActiveSheet.Paste
Range("K1").Select
Windows("CUST.TXT").Activate
ActiveWindow.Close
Workbooks.OpenText FileName:="Z:\jeffw\CONTRACT.TXT", Origin:=xlWindows, _
StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 2), Array(10 _
, 2), Array(13, 2))
Columns("A:C").Copy
Windows("Book2").Activate
ActiveSheet.Paste
Range("O1").Select
Windows("CONTRACT.TXT").Activate
ActiveWindow.Close

 

[JWARD]

it tried to apply colers, the macro accually reads

Application.DisplayAlerts = False
ChDir "Z:\jeffw"
Workbooks.OpenText FileName:="Z:\jeffw\CUST.TXT", Origin:=xlWindows, _
StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 2), Array(11 _
, 2), Array(43, 2))
Workbooks.Add
Windows("CUST.TXT").Activate
Columns("A:C").Copy
Windows("Book2").Activate
ActiveSheet.Paste
Range("K1").Select
Windows("CUST.TXT").Activate
ActiveWindow.Close
Workbooks.OpenText FileName:="Z:\jeffw\CONTRACT.TXT", Origin:=xlWindows, _
StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 2), Array(10 _
, 2), Array(13, 2))
Columns("A:C").Copy
Windows("Book2").Activate
ActiveSheet.Paste
Range("O1").Select
Windows("CONTRACT.TXT").Activate
ActiveWindow.Close