title: VBA Browse and Select
body: <pre><code>Private Sub bBrowse_Click()
  
    Const msoFileDialogFilePicker As Long = 3
  Dim objDialog As Object
  
  Set objDialog = Application.FileDialog(msoFileDialogFilePicker)
  
  With objDialog
      .AllowMultiSelect = True
      .Show
      If .SelectedItems.Count = 0 Then
          MsgBox "No file selected."
      Else
          Me.[File Link].Value = Dir(.SelectedItems(1))
      End If
  End With
  
  End Sub
  </code></pre>
  
  <p>I was able to get it to add in the cell I need it to but it when it is clicked it will not open the file or path</p>