Bom dia Pessoal,

eu uso essa macro para buscar um arquivo em PDF e gerar um determinado LINK na minha célula "C17"... até ai tudo bem...

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

On Erro GoTo Erro_Rotina

    url = InputBox("Localzar NFe", "Teste", "C:UsersAdm-PCDocumentsNotas Fiscais")
    texto = IIf(Len(ActiveCell.Value) = 0, "Link de NFe Criado", Range("17").Value)
    
    If Len(url) > 0 Then
        ActiveCell.Hyperlinks.Add Anchor:=Range("C17"), Address:=url, TextToDisplay:=texto
        MsgBox "Link Inserido", vbInformation, "Teste"
    End If

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

O problema.. é que eu uso esse código abaixo para inserir as informações digitadas na aba onde está o link e transfiro para outra aba, porém ao transferir o LINK não é carregado como link, ou seja .. ele vai apenas o texto que consta na célula "C17".

Public Sub lsIncluirLancamento()
    Dim lUltimaLinhaAtiva As Long
    
    lUltimaLinhaAtiva = Worksheets("Registro de Inventário").Cells(Worksheets("Registro de Inventário").Rows.Count, 1).End(xlUp).Row + 1
     'Operação Fiscal
    Worksheets("Registro de Inventário").Cells(lUltimaLinhaAtiva, 12).Value = Worksheets("Entrada e Saída").Range("C17").Value

COmo tranferir as informações a partir de um botão de comando.. o link tbm seja tranferido.