I have created a loop macro that opens a series of text files, does some clean up (removing rows and columns)
than saves the updated text file to a new location with the same name. Sometimes the macro runs through
~5 of the 14 files other times it fails on the 1 and 2nd file. Excel brings up a pop up saying "Excel has stopped
responding and needs to restart" I don't get any VB errors just the excel crash. Is my loop trying to open
multiple files at once vs in sequence? any help would be appriciated.

Sub CleanLoop4()
        
    Dim NewName, SaveName, MyFile As String
    Dim SavePath As String
    MyPath = "C:\Temp\Trading\Files\"
    SavePath = "C:\Temp\Trading\"
    MyFile = Dir(MyPath & "*.txt")
      ' Starts the loop, which will continue until there are no more files
      ' found.
    Application.DisplayAlerts = False
    ChDir MyPath
        Do While MyFile <> ""
            Workbooks.OpenText FileName:= _
                MyFile, Origin:=437, StartRow:=1 _
                , DataType:=xlDelimited, TextQualifier:=xlNone, _
                ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=False _
                , Space:=False, Other:=True, OtherChar:="|", FieldInfo:=Array(Array(1, 1 _
                ), Array(2, 2), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
                Array(9, 1), Array(10, 1), Array(11, 1)), TrailingMinusNumbers:=True

            NewName = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)
            SaveName = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name))
            Rows("1:6").Select
            Range("A2").Activate
            Selection.Delete Shift:=xlUp
            Columns("A:A").Select
            Selection.Delete Shift:=xlToLeft
            Columns("C:J").Select
            Selection.Delete Shift:=xlToLeft
            Columns("A:A").Select
            Selection.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
                :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
                False, SearchFormat:=False).Activate
            Columns("B:B").EntireColumn.AutoFit
            Range("A:A").Select
            X = ActiveSheet.UsedRange.Rows.Count
            Range("C1").Select
            ActiveCell.FormulaR1C1 = NewName
            Range("C1").Select
            Selection.Copy Destination:=Range("C1:C" & X)
            Application.CutCopyMode = False
            ActiveWorkbook.SaveAs SavePath & SaveName, FileFormat:=xlText, _
                CreateBackup:=False
            ActiveWorkbook.Close False
            MyFile = Dir()
        Loop
    Application.DisplayAlerts = False

End Sub