Find specific File in all Folder

Option Compare Text
Function Export_Worksheetsa()
    Dim fname As String
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Dim strName As String
    fname = InputBox(Prompt:="You name please.", Title:="Enter Your File Name", Default:="Your file name here")
    If fname = "Your file name here" Or fname = vbNullString Then
        Exit Function
    End If
    F_ext = InputBox(Prompt:="You name please.", Title:="Enter Your File Ext", Default:="Your file ext here")

    If F_ext = "Your file ext here" Or fname = vbNullString Then
        Exit Function
    End If
    On Error Resume Next
    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = openat
        .Show
        fldr = .SelectedItems(1)
    End With

    If fldr = "" Or fldr = "False" Then Exit Function
    If Dir(fldr) <> "" Then
        m_error = "Sorry you not selected correct folder Path :( ": GoTo ErrHandler
    End If
    On Error GoTo ErrHandler
    i = 0
    Set obj_fso = CreateObject("Scripting.FileSystemObject")
    Set obj_folder = obj_fso.GetFolder(fldr)
    Application.StatusBar = "Checking for Number[s] of Co-Code available"
    For Each obj_subfolder In obj_folder.SubFolders
        i = i + 1
        flcount = i
    Next
    MsgBox "Total " & i & " Folder(s) found.", vbInformation
    i = 1
    fcount = 0
    Set newbook = Workbooks.Add
    For Each obj_subfolder In obj_folder.SubFolders
        mfile = 0
        fcount = fcount + 1
        For Each obj_file In obj_subfolder.Files
            Application.StatusBar = "Checking for files[s] in " & fcount & " of" & flcount & " folders " & obj_subfolder.Name

            If obj_fso.GetExtensionName(obj_file) = F_ext Then
                If InStrRev(obj_file.Name, fname) <> 0 Then
                    Cells(i, "A").Value = obj_folder.Path
                    Cells(i, "B").Value = obj_file.Name
                    mfile = mfile + 1
                    i = i + 1
                End If
            End If
           
        Next
        
    Next
    If mfile = 0 Then
        my_error = "There are " & mfile & " Payroll_Control_Report Files Found Please keep only 1 File whichever is required in  " & obj_subfolder.Name: GoTo ErrHandler
    End If
ErrHandler:
End Function