Split worksheets in multiple workbooks in folder

I have about 400 Excel workbooks in a folder, all of which have 1 sheet of data. I have been searching for the VB code which will split the worksheet by column Y into separate sheets. I have found the code which will perform this as well as code which is intended to run the same code on ALL workbooks in a folder. I've tried putting the two sets of code together, but it keeps running the code for the active sheet only. How can I get this to run on all workbooks in a folder?

Sub RunCodeOnAllXLSFiles()
Dim lCount As Long
Dim wbResults As Workbook
Dim wbCodeBook As Workbook
Dim lastrow As Long, LastCol As Integer, i As Long, iStart As Long, iEnd As Long
Dim ws As Worksheet

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False

On Error Resume Next
    Set wbCodeBook = ThisWorkbook
        With Application.FileSearch
            .NewSearch
            'Change path to suit
            .LookIn = "C:\files1\files2\Files"
            .FileType = msoFileTypeExcelWorkbooks
            'Optional filter with wildcard
            '.Filename = "Book*.xls"
                If .Execute > 0 Then 'Workbooks in folder
                    For lCount = 1 To .FoundFiles.Count 'Loop through all
                        'Open Workbook x and Set a Workbook variable to it
                        Set wbResults = Workbooks.Open(Filename:=.FoundFiles(lCount), UpdateLinks:=0)
    
    'here is the code I am running on all workbooks


Application.ScreenUpdating = False
    lastrow = .Cells(Rows.Count, "A").End(xlUp).Row
    LastCol = .Cells(1, Columns.Count).End(xlToLeft).Column
    .Range(.Cells(2, 1), Cells(lastrow, LastCol)).Sort Key1:=Range("Y2"), Order1:=xlAscending, _
        Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    iStart = 2
    For i = 2 To lastrow
        If .Range("Y" & i).Value <> .Range("Y" & i + 1).Value Then
            iEnd = i
            Sheets.Add after:=Sheets(Sheets.Count)
            Set ws = ActiveSheet
            On Error Resume Next
       'providing a sheet name with the word LIST in front of value
            ws.Name = "LIST " & .Range("Y" & iStart).Value
            On Error GoTo 0
            ws.Range(Cells(1, 1), Cells(1, LastCol)).Value = .Range(.Cells(1, 1), .Cells(1, LastCol)).Value
            .Range(.Cells(iStart, 1), .Cells(iEnd, LastCol)).Copy Destination:=ws.Range("A2")
            iStart = iEnd + 1
        End If
    Next i

Application.CutCopyMode = False
Application.ScreenUpdating = True

'Deletes the original sheet and the additional 2 default sheets

Application.DisplayAlerts = False
Sheets("Sheet1").Select
ActiveWindow.SelectedSheets.Delete

Application.DisplayAlerts = False
Sheets("Sheet2").Select
ActiveWindow.SelectedSheets.Delete

Application.DisplayAlerts = False
Sheets("Sheet3").Select
ActiveWindow.SelectedSheets.Delete



                        wbResults.Close SaveChanges:=False
                    Next lCount
                End If
        End With
On Error GoTo 0
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.EnableEvents = True
End Sub

Originally Posted by Eric09

I have about 400 Excel workbooks in a folder, all of which have 1 sheet of data. I have been searching for the VB code which will split the worksheet by column Y into separate sheets.

Can you explain better ? do you want extract each column save as new sheet ?

to open all files in a folder and change them

Sub OpenfileUpdate()
Dim strFile As String
mFolder = "D:\DATA\test\"
strFile = Dir(mFolder & "*.xls*")
Do While strFile <> ""
    Workbooks.Open mFolder & strFile
' <<<<<<<<<< insert your code 
    ActiveWorkbook.Close True
    strFile = Dir
Loop
End Sub