title: Get File Path (ends with folder)
body: <p>I know how to let the user click on a button to navigate to a specific file to open.</p>
  
  <p><strong>Code:</strong></p>
  
  <pre><code>Private Sub CommandButton2_Click()
      Dim vaFiles As Variant
  
      vaFiles = Application.GetOpenFilename()
  
      ActiveSheet.Range("B9") = vaFiles
  End Sub
  </code></pre>
  
  <p>I want a second button that will let the user navigate to a folder to save the <code>.pdf</code> file that my program creates.</p>
  
  <p>The problem: The <code>GetOpenFilename</code> requires the user to click on a file.  If there's no file in the folder then there's nothing the user can do.</p>