For x = 1 To FDialog.SelectedItems.Count
FPath = FDialog.SelectedItems(x)
Set WB = Workbooks.Open(FPath)
For Each sheet In ActiveWorkbook.Sheets
sheet.Copy After:=ThisWorkbook.Sheets(1)
Next sheet
WB.Close
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub