Combine multiple workbooks into one: VBA Excel

Sub CombineFiles()
    'combines multiple Excel files into one sheet
    Dim TargetSht As Worksheet
    Dim i As Integer
    Dim Wks As Worksheet

    Application.ScreenUpdating = False

    Set TargetSht = ThisWorkbook.ActiveSheet

    With Application.FileSearch
       'the file open code is Shawn Foley's code
        .NewSearch
        .LookIn = "c:\xlFiles\"              'folder to use
        .SearchSubFolders = False
        .FileName = "*.xls"
        .FileType = msoFileTypeExcelWorkbooks
        If .Execute() > 0 Then
            MsgBox "There were " & .FoundFiles.Count & " file(s) found."
            For i = 1 To .FoundFiles.Count
                Workbooks.Open .FoundFiles(i)
                For Each Wks In ActiveWorkbook.Worksheets
                    Wks.UsedRange.Copy Destination:= _
                    TargetSht.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)

                  Next Wks
                ActiveWorkbook.Close False
            Next i
        Else
            MsgBox "There were no files found."
        End If
    End With
Application.ScreenUpdating = True

End Sub

Comments

[Formal Dresses]

Thank for your time to share us this discuss, i have some opinion on the <a href="http://www.dressaler.com/" title="Formal Dresses">Formal Dresses</a>, I feel so stronl about your article, and learning more on this topic, then it is so good, Do you have time visit us <a href="http://www.dressaler.com/wedding-party-dress/bridesmaid-dresses.html" title="Wedding Bridesmaid Dresses">Wedding Bridesmaid Dresses</a>.I will bookmark your blog and have my kids check up here frequently <a href="http://www.dressaler.com/wedding-party-dress/junior-bridesmaid-dresses.html" title="Junior Bridesmaid Dresses">Junior Bridesmaid Dresses</a>. I’m very certain they will understand lots of new stuff here than anybody else. I do appreciate that youve added relevant and intelligent commentary here though. Thank you!