Something like should you get almost there:
Option Explicit
Sub SheetsToSheets()
Dim wbImport As Workbook, wsImport As Worksheet
Dim Filter As String, Caption As String, wbName As String
Filter = "All Excel Files (*.xls*),*.xls*"
Caption = "Please Select an input file "
wbName = Application.GetOpenFilename(Filter, , Caption)
If wbName = "False" Then Exit Sub
Set wbImport = Application.Workbooks.Open(wbName)
For Each wsImport In wbImport.Worksheets
wsImport.UsedRange.Copy ThisWorkbook.Sheets(wsImport.Name).Range("A" & Rows.Count).End(xlUp).Offset(1)
Next wsImport
wbImport.Close False
End Sub
Bookmarks