in the following , when done opening copying and pasting, before moving on the the next of the same i get a pop up box asking if i want to keep the information in the clipboard. the answer is always no. how would i insert this?
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
Workbooks.OpenText FileName:="Z:\jeffw\ALL.TXT", Origin:=xlWindows, _
StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 9), Array(10 _
, 2), Array(15, 9), Array(56, 2), Array(68, 2), Array(81, 2), Array(94, 9))
Columns("A:D").Copy
Windows("Book2").Activate
ActiveSheet.Paste
ActiveWindow.SmallScroll ToRight:=6
Range("O4") = "ALL"
Range("T1").Select
Windows("ALL.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
Workbooks.OpenText FileName:="Z:\jeffw\ALL.TXT", Origin:=xlWindows, _
StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 9), Array(10 _
, 2), Array(15, 9), Array(56, 2), Array(68, 2), Array(81, 2), Array(94, 9))
Columns("A:D").Copy
Windows("Book2").Activate
ActiveSheet.Paste
ActiveWindow.SmallScroll ToRight:=6
Range("O4") = "ALL"
Range("T1").Select
Windows("ALL.TXT").Activate
ActiveWindow.Close