Olá pessoal,
Há pouco tempo pedi ajuda do fórum para solucionar um problema. A solução ajudou em parte. Estou usando o código abaixo, agora preciso que me ajudem adaptar o código para que o link seja inserido através de um formulário conforme o código selecionado.

Public Sub Adicionar_HiperLinks()
Dim link As String
Dim texto As String

On Erro GoTo Erro_Rotina

    link = CStr(Application.GetOpenFilename(sTítulo, , False))
    texto = IIf(Len(ActiveCell.Value) = 0, "Link do documento", ActiveCell.Value)

    If Len(link) > 0 Then
        ActiveCell.Hyperlinks.Add Anchor:=ActiveCell, Address:=link, TextToDisplay:=texto
        MsgBox "Link inserido com sucesso...!!!", vbInformation, "Arquivo"
    End If

Exit Sub
Erro_Rotina:
    MsgBox Err.Description, vbExclamation
    Exit Sub
End Sub