title: Append Worksheets of same structure from multiple Excel Files into one
body: <p>I want to combine several excel files into one. The excel files which i want to combine has the same sheets. So in that point, i want to combine the same sheets from different excel files.</p>
  
  <p>I have this code to combine, hovewer this code merely combine the latest active sheet from the excel files:</p>
  
  <pre><code>Sub simpleXlsMerger()
      Dim bookList As Workbook
      Dim mergeObj As Object, dirObj As Object, filesObj As Object, everyObj As Object
      Application.ScreenUpdating = False
      Set mergeObj = CreateObject("Scripting.FileSystemObject")
      Set dirObj = mergeObj.Getfolder("C:\Users\5545\Desktop\MI")
      Set filesObj = dirObj.Files
      For Each everyObj In filesObj
          Set bookList = Workbooks.Open(everyObj)
          Range("A2:IV" &amp; Range("A28").End(xlUp).Row).Copy
          ThisWorkbook.Worksheets(1).Activate
          Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
          Application.CutCopyMode = False
          bookList.Close
      Next
  End Sub
  </code></pre>
  
  <p>How can i specify the <code>sheet("Day 1")</code> which I wish in that code? The name of sheet which i want to combine is "Day 1"</p>