Merging multiple workbooks

You can't move sheets between workbooks.

Sub tst7()
  For j = 1 To 7
    with workbooks.open( ThisWorkbook.Path & "\" & choose(j,"Resources","Comm","Strategy","Corp","BDU","Hosting","Quality") & ".xls")
      for each sh in .sheets
         with ThisWorkbook.Sheets.add
             .cells(1,1).resize(sh.usedrange.rows.count,sh.usedrange.columns.count)=sh.usedrange
         end with
      next
      .Close False
    End With
  Next
End Sub