Message box at the end of loop - with a file count if possible

[Chanty]

The following code runs various macros on a loop for numerous files (up to 40ish before it tries to run a file for a second time) - any suggestions to increase the number of files? - not the main request, but though it worth asking.

What I'd like to add is a message box at the end of running all the files in the selected folder, saying it has finished and ideally how many files it has processed. Possible?

Many thanks for any help

Sub SN_SWB()

    Dim xFd As FileDialog
    Dim xFdItem As Variant
    Dim xFileName As String
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    If xFd.Show = -1 Then
        xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
        xFileName = Dir(xFdItem & "*.xls*")
        Do While xFileName <> ""
            With Workbooks.Open(xFdItem & xFileName)
                
     
'
    Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = False
    Application.DisplayStatusBar = False
    Application.DisplayAlerts = False
    
    Application.Run "Add_Cover_Info"
    
    Application.Run "Pre_Data_Format"
    
    Application.Run "Data_Format"
    
    Application.Run "TOC_Column_width"
    
    Application.Run "DR_width"
    
    Application.Run "ID_width"
        
    Application.Run "ORIGIN_DEPART_width"
    
    Application.Run "ORIGIN_width"
    
    Application.Run "ARRIVE_width"
    
    Application.Run "DEPART_width"
        
    Application.Run "DESTINATION_width"
    
    Application.Run "PLT_width"
    
    Application.Run "FAC_width"
    
    Application.Run "CALLING_POINTS_width"
        
    Application.Run "ROW_Autofit"
    
    Application.Run "Header_Margins"
    
    Application.Run "SaveAsA13Cell"
    
    Application.Run "Create_PDF"
    
    Application.Run "Save_Close"
 
'
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    Application.DisplayStatusBar = True
'
            End With
            xFileName = Dir
        Loop
    End If
End Sub

[Mumps1]

Try:

Sub SN_SWB()
    Dim xFd As FileDialog, xFdItem As Variant, xFileName As String, x As Long
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    If xFd.Show = -1 Then
        xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
        xFileName = Dir(xFdItem & "*.xls*")
        Do While xFileName <> ""
            With Workbooks.Open(xFdItem & xFileName)
                x = x + 1
                Application.Calculation = xlCalculationManual
                Application.ScreenUpdating = False
                Application.DisplayStatusBar = False
                Application.DisplayAlerts = False
                Application.Run "Add_Cover_Info"
                Application.Run "Pre_Data_Format"
                Application.Run "Data_Format"
                Application.Run "TOC_Column_width"
                Application.Run "DR_width"
                Application.Run "ID_width"
                Application.Run "ORIGIN_DEPART_width"
                Application.Run "ORIGIN_width"
                Application.Run "ARRIVE_width"
                Application.Run "DEPART_width"
                Application.Run "DESTINATION_width"
                Application.Run "PLT_width"
                Application.Run "FAC_width"
                Application.Run "CALLING_POINTS_width"
                Application.Run "ROW_Autofit"
                Application.Run "Header_Margins"
                Application.Run "SaveAsA13Cell"
                Application.Run "Save_Close"
                Application.Calculation = xlCalculationAutomatic
                Application.ScreenUpdating = True
                Application.DisplayStatusBar = True
            End With
            xFileName = Dir
        Loop
    End If
   MsgBox ("Process completed on " & x & " files.")
End Sub

I'm not sure what you mean by:

any suggestions to increase the number of files

[Chanty]

Thanks Mumps1 - worked perfectly

No worries re the number of files, I'll come back to that if it becomes an issue. It can run over 40 files, but then starts rerunning on files already completed, when there are still other left to run.

Thanks again

[Mumps1]

You are very welcome.