Macro to open a workbook from an unknown file path

Sub FindInSubfolders() ' main, call SubFoldersFind
   Dim StrFile As String, objFSO, destRow As Long, fname As String
   Dim mainFolder, mySubFolder
   mFolder = Range("B2").Value
   fname = Range("B3").Value
   Set objFSO = CreateObject("Scripting.FileSystemObject")
   Set mainFolder = objFSO.GetFolder(mFolder)
   StrFile = Dir(mFolder & "\" & fname)
   If StrFile <> "" Then
      Workbooks.Open mFolder & "\" & StrFile
   Else
      SubFoldersScan OfFolder:=mainFolder, fname:=fname
   End If
End Sub
   
Sub SubFoldersScan(OfFolder As Variant, fname As String) 
    Dim SubFolder
    For Each SubFolder In OfFolder.SubFolders
       StrFile = Dir(SubFolder & "\" & fname)
       If StrFile <> "" Then
          Workbooks.Open SubFolder & "\" & StrFile
          Exit For
       End If
       SubFoldersScan OfFolder:=SubFolder, fname:=fname
    Next SubFolder
End Sub