Na próxima vez, anexe a planilha.

Estude o código e adapte:

Private Sub CommandButton1_Click()

Dim i As Long
i = 1
While Plan1.Range("A" & i).Value <> ""
i = i + 1
Wend
Plan1.Range("A" & i).Value = txtContrato.Text
Plan1.Range("B" & i).Value = txtContratada.Text
Plan1.Range("C" & i).Value = txtDocumento.Text
Plan1.Range("D" & i).Value = txtNumeroDoDocumento.Text

Plan1.Range("E" & i).Select
ActiveCell.FormulaR1C1 = Plan1.Range("E" & i).Text
Plan1.Range("M" & i).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
Plan1.Range("E" & i).Text, TextToDisplay:= _
Plan1.Range("E" & i).Text


End Sub

Boa noite Klarc, sou novo aqui e não tinha visto essa opção de inserir a planilha.

O arquivo está uma bagunça, estou aproveitando um programinha que arrumei e adaptando para a minha necessidade.

O formulário que estou montando se chama Cliente. Nele tem um botão de comando com uma lupa.

Quando cadastro um novo produto, queria que eu pudesse apertar na lupa e inserir um hiperlink. Depois de salvar o cadastro, na hora de pesquisar algo, quando
os registros, eu pudesse olhar o documento.

Agradeço demais sua ajuda Klarc, você é o fera.

Por favor, teste o código que postei.
Se não funcionar, explique o que não funcionou.