Criar Macro para criar hyperlink automaticamente.

Salve salve galera,
Será que alguém pode me ajudar na macro abaixo? Eu gostaria que ela colocasse um hyperlink de um arquivo pdf automaticamente, mais para isso eu deveria colocar uma extensão de .pdf pré-definida. como eu faria isso?
Explicando melhor: Essa macro abaixo tem a função de buscar nas células da minha planilha os dados e com eles gerar um hyperlink automaticamente, mas essa macro era para hyperlink de sites e tentei adaptar para aquivo em pdf, mas não consegui...


Sub CriarHiperlink()

Dim lUltimaLinhaAtiva As Long
Dim lControle As Long

Application.ScreenUpdating = False

lUltimaLinhaAtiva = Worksheets("Lista de Encomendas").Cells(Worksheets("Lista de Encomendas").Rows.Count, 1).End(xlUp).Row

For lControle = 2 To lUltimaLinhaAtiva
Range("A" & lControle).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"C:\Users\Angel King\Desktop\CONDOR - ANALISE\Nova pasta\" & _
Range("A" & lControle).Value, TextToDisplay:="" & Range("A" & lControle).Value
Next lControle
End Sub

Sub RemoverHiperlink()

Dim lUltimaLinhaAtiva As Long
Dim lControle As Long

Application.ScreenUpdating = False

lUltimaLinhaAtiva = Worksheets("Lista de Encomendas").Cells(Worksheets("Lista de Encomendas").Rows.Count, 1).End(xlUp).Row

For lControle = 2 To lUltimaLinhaAtiva
Range("A" & lControle).Select
Selection.Hyperlinks.Delete
Next lControle
End Sub