Private Sub CopySheets(ByVal Path As String)
    Dim Item As Object
    Dim oWbk As Workbook
    Set oWbk = Workbooks.Open(Path)
            For Each Item In oWbk.Sheets
                    oWbk.Sheets(Item.Name).Copy After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
            Next
    oWbk.Close False
End Sub