Application.DisplayAlerts = False
Sub Macro4()
Dim strPath as String
strPath = ThisWorkBook.Path
Workbooks.OpenText Filename:= strPath & "/5EE.SI.TXT", Origin:= _
xlWindows, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, _
1), Array(8, 1), Array(13, 1), Array(18, 1), Array(23, 1), Array(28, 1))
Cells.Select
Selection.Copy
Windows("Beta.xls").Activate
Cells.Select
ActiveSheet.Paste
Windows("5EE.SI.TXT").Activate
ActiveWindow.Close
End Sub