Vou tentar explicar melhor:

Eu tenho as seguintes estruturas para preencher o meu listbox:

Private Sub txtPesquisar_Change()
    TextoDigitado = txtPesquisar.Text
    Call PreencheLista
End Sub

Private Sub PreencheLista()
    Dim ws As Worksheet
    Dim i As Integer
    Dim TextoCelula As String
    Set ws = Worksheets("base")
    i = 1
    ListBox1.Clear
    With ws
        While .Cells(i, 1).Value <> Empty
            TextoCelula = .Cells(i, 1).Value
            If UCase(Left(TextoCelula, Len(TextoDigitado))) = UCase(TextoDigitado) Then
                ListBox1.AddItem .Cells(i, 1)
                ListBox1.List(ListBox1.ListCount - 1, 1) = Worksheets("base").Range("B" & i)
                ListBox1.List(ListBox1.ListCount - 1, 2) = Worksheets("base").Range("C" & i)
                ListBox1.List(ListBox1.ListCount - 1, 3) = Worksheets("base").Range("D" & i)                
            End If
            i = i + 1            
        Wend
    End With
End Sub

Eu preciso que ali onde monta a coluna D, também puxe o hiperlink que eu tenho lá na minha planilha.

Amigo, fiquei em dúvida se você quer apenas direcionar ou se é necessário 'exibir' o hyperlink.

Segue anexo arquivo considerando apenas o comando de abrir o pdf com duplo clique sobre o item da ListBox.

Corrija o 1º item, que alterei para poder testar na minha máquina.

Caramba!!! Excelente!!!
Funcionou perfeitamente
Poxa eu vi a lógica que vc usou e é bem direta e objetiva.

Obrigado mesmo, isso vai ajudar muito no meu trabalho.
Nota 10 pra você!