Este fórum está sendo desativado

[Diego100ges]

Boa tarde pessoal.
Estou precisando abrir um pdf com vba a partir de um link que estará disponível na célula G16 , precisaria que a o VBA transformasse a célula G16 em um hyperlink e abrisse o arquivo, porém não estou conseguindo.
Alguém pra me dar uma mão ai?

Obrigado!

[leosouza]

Código: Selecionar todos

Sub openPDF()
    Range("G16").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Selection.Value
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub