Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
Dim SelectedFile As Variant
With fd
    If .Show = -1 Then
        Application.ActiveWindow.Selection.Collapse
        If Application.ActiveWindow.Selection.Hyperlinks.Count >= 1 Then
            MsgBox "Insertion Point Cannot Be Within Preexisting Hyperlink!"
        Else
            For Each SelectedFile In .SelectedItems
                Application.ActiveWindow.Document.Hyperlinks.Add Anchor:=Selection.Range, _
                    Address:=SelectedFile, _
                    SubAddress:="", _
                    ScreenTip:="", _
                    TextToDisplay:=SelectedFile
                Application.ActiveWindow.Selection.TypeParagraph
            Next SelectedFile
        End If
    Else
    End If
End With
Set fd = Nothing