Private Sub CommandButton1_Click()
'mostra a caixa para selecionar um arquivo
Set myFile = Application.FileDialog(msoFileDialogOpen)
With myFile
.Title = "Choose File"
.AllowMultiSelect = False
If .Show <> -1 Then
Exit Sub
End If
FileSelected = .SelectedItems(1)
End With
'define onde será inserido o link
With Sheets(1)
.Hyperlinks.Add Anchor:=.Range("a5"), _
Address:=FileSelected, _
ScreenTip:="Microsoft Web Site", _
TextToDisplay:="Microsoft"
End With
End Sub

O código acima inseri o link certinho, porem não consegui configurar a txtbox para exibir o endereço. E na planilha
- também não esta aparecendo o endereço. PRECISO salvar esses arquivos na A1,B1,C1,D1........... Quando abrir a use form para novo registro salvar na A2,B2,C2,D2.....