Victor, pode ser necessária alguma adequação nos hyperlinks... mas segue sugestão:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <> 3 Then
Exit Sub
ElseIf Target.Row < 3 Then
Exit Sub
Else
lin = Target.Row
lnk = Target.Value
Cells(lin, 4).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="Hyperlink" & lnk, TextToDisplay:="Hyperlink" & lnk

End If

End Sub

Bom dia Edson,

Muito obrigado pela ajuda, porém, infelizmente não consegui entender a linha de código.

Poderia, por gentileza, inseri-la na planilha para que eu pudesse verificar na prática?

Att.

Victor, basta copiar o código e, em seguida:
- clicar com o botão direito do mouse sobre o nome da guia em que será executado o comando
- selecionar Exibir código
- colar

Lembro que, nesta versão do aplicativo, é necessário salvar com a extensão xlsm.

De qualquer maneira, segue anexo.

Bom dia Edson,

Mais uma vez obrigado.
Verifiquei o teste e na verdade o que eu preciso acredito que seja mais simples:
Digamos que eu já tenha todos os hyperlinks cadastrados e nomeados na PLANILHA 2 (como no exemplo "hyperlinksofá") e gostaria em vez de utilizar um BOTÃO para copiar aquele hyperlink quando selecionar o SOFÁ na PLANILHA 1, que seja alterado automaticamente com o CHANGE. No final das contas, a minha dúvida é como se escreve a linha de código no evento change.

Fico no aguardo de seu retorno, se possível.

Desde já agradeço.

Att.

Pessoal, alguém mais poderia tentar solucionar a minha dúvida?

Att.