Merging multiple 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
         Sh.Move After:=ThisWorkbook.Sheets("Checks")
      next
      .Close False
    End With
  Next
End Sub