Issue with hyperlinking documents

RasmusP Using a macro with the following code will display a file picker dialog with the file type set to All Files (*.*) and then when a file is selected, a hyperlink to that file will be inserted with the text that was selected when the macro was run as the display text.

Dim FD As FileDialog
Dim strAddress As String
Set FD = Application.FileDialog(msoFileDialogFilePicker)
With FD
    .Title = "Select the to which you want the link to address."
'    .InitialFileName = " insert path to desired folder"
    .Filters.Clear
    .Filters.Add "All Files", "*.*"
    .AllowMultiSelect = False
    If .Show = -1 Then
        strAddress = .SelectedItems(1)
    Else
        MsgBox "You did not select a file."
        Exit Sub
    End If
End With
ActiveDocument.Hyperlinks.Add Selection.Range, strAddress, , , Selection.Text