Private Sub hyperlink()
    Dim fd As Office.FileDialog
    Dim s As String
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
  With fd
      .AllowMultiSelect = False
      .InitialFileName = "D:\Docs"
      .Title = "Please select the file."
      .Filters.Clear
      .Filters.Add "PDF", "*.pdf"
      If .Show = True Then
        txtFileName = .SelectedItems(1)
      End If
   End With
   
   ActiveCell.Formula = "=HYPERLINK(txtFileName,ActiveCell.text)"
    
End Sub