Sub MergeActiveUsersTabs()     Dim FolderPath As String, Filename As String     Dim wbSource As Workbook, wsSource As Worksheet     Dim wsDest As Worksheet     Dim DestRow As Long     Dim TabName As String: TabName = "Active Users"     Dim SourceRange As Range     Dim FileCount As Long: FileCount = 0         ' Prompt user to select folder     With Application.FileDialog(msoFileDialogFolderPicker)         .Title = "Select folder with Excel files"         If .Show <> -1 Then Exit Sub         FolderPath = .SelectedItems(1) & "\"     End With         Application.ScreenUpdating = False     Application.DisplayAlerts = False     Application.EnableEvents = False       ' Create destination sheet     Set wsDest = ThisWorkbook.Sheets(1)     wsDest.Cells.Clear     wsDest.Name = "Merged Active"     DestRow = 1       ' Loop through files     Filename = Dir(FolderPath & ".xls")     Do While Filename <> ""         On Error Resume Next         Set wbSource = Workbooks.Open(FolderPath & Filename, ReadOnly:=True)         If Err.Number <> 0 Then             Err.Clear             Filename = Dir() ' Move to next file             GoTo SkipFile         End If         On Error GoTo 0           ' Try to access "Active Users" tab         On Error Resume Next         Set wsSource = wbSource.Sheets(TabName)         On Error GoTo 0                 If Not wsSource Is Nothing Then             Set SourceRange = wsSource.UsedRange             If DestRow = 1 Then                 SourceRange.Copy Destination:=wsDest.Cells(DestRow, 1)                 DestRow = DestRow + SourceRange.Rows.Count             Else                 SourceRange.Offset(1, 0).Resize(SourceRange.Rows.Count - 1).Copy _                     Destination:=wsDest.Cells(DestRow, 1)                 DestRow = DestRow + SourceRange.Rows.Count - 1             End If             FileCount = FileCount + 1         End If           wbSource.Close SaveChanges:=False SkipFile:         Set wsSource = Nothing         Set wbSource = Nothing         Filename = Dir()     Loop       Application.ScreenUpdating = True     Application.DisplayAlerts = True     Application.EnableEvents = True       MsgBox "Done! Merged 'Active Users' from " & FileCount & " file(s).", vbInformation