I use the following code to import multiple worksheets from another workbook and do some processing. The importing time is too long. Can anyone suggest a more efficient way to import? Should I be looking into more information in the source files for copy? Can anyone please suggest a way to speed up the import function?I am not a professional developer, so I might have left out some key points to note. Please let me know if I need to look into something else, as well.Sub SKR_Import()On Error GoTo errorhandlerApplication.ScreenUpdating = FalseApplication.DisplayAlerts = FalseDim wb1 As WorkbookDim wb2 As WorkbookDim Sht As WorksheetSet wb1 = ActiveWorkbookDim fd As FileDialogDim filechosen As IntegerDim filename As StringDim i As LongSet fd = Application.FileDialog(msoFileDialogOpen)fd.AllowMultiSelect = Truefd.Title = Select Excel workbooks to import all sheetsfilechosen = fd.ShowIf filechosen = -1 Then    For i = 1 To fd.SelectedItems.Count        Set wb2 = Workbooks.Open(fd.SelectedItems(i))        For Each Sht In wb2.Sheets            Sht.Activate            ActiveSheet.Copy after:=wb1.Sheets(wb1.Sheets.Count)        Next Sht        wb2.Close SaveChanges:=False    Next iEnd Ifwb1.ActivateApplication.ScreenUpdating = TrueExit Suberrorhandler:msgBox Error, vbCritical, Errorwb2.Close SaveChanges:=FalseApplication.ScreenUpdating = TrueApplication.DisplayAlerts = TrueEnd Sub
Importing multiple worksheets
vba;excel;import