title: Find file and insert path into cell
body: <p>I have a file name of a pdf that I want to search for in a folder on a shared network drive \\Share\Projects. The pdf will be in one of the subfolders under projects. I then want to return the entire file path of the pdf into a cell (eg \\Share\Projects\Subfolder\Another subfolder\thisone.pdf).</p>
  
  <p>I have started the code but can't figure out how to search a file system:</p>
  
  <pre><code>Sub InsertPath()
  
      Dim PONumber As String
      PONumber = InputBox("PO Number:", "PO Number")
  
      'search for order
          Dim myFolder As Folder
          Dim myFile As File
  
          'This bit doesn't work
          Set myFolder = "\\Share\Projects"
          For Each myFile In myFolder.Files
              If myFile.Name = "PO" &amp; PONumber &amp; ".pdf" Then
                  'I have absolutely no idea how to do this bit
              End If
          Next
  End Sub
  </code></pre>
  
  <p>Am I on the right track or is my code completely wrong?</p>