Visual Basic Macro para abrir hiperlink

[BrunoG10]

Boa Tarde Pessoal,

Estou desenvolvendo uma planilha para uma empresa,
Dentro dessa planilha, vai ter lugar para que a pessoa que há esteja utilizando anexe documentos,
Esses documentos irão ser buscados em uma pasta comum que temos na empresa "F:\"
A ideia é desenvolver um botão que ao clicar ele abra essa pasta, ao abrir essa pasta a pessoa busca o pdf que quer, e ao clicar nele para abrir, ele salve o endereço do pdf,
A ideia é clicar no botão, ele abrir a pasta e nessa pasta eu conseguir salvar um pdf no excel (salvar no sentido de inserir um link - é basicamente inserir o link do pdf, porém com uma macro)
O botão teria que ter o nome "Anexo" e o link deveria ser salvo na célula do lado deste botão
Alguém poderia me ajudar a desenvolver uma Macro para isso?

[Basole]

Segue exemplo, a macro insere o hyperlink na celula a lado da celula selecionada.

 

Sub SEU_BOTAO()

    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "Selecione um Arquivo Pdf"
        .AllowMultiSelect = False
        .Filters.Clear
        .Filters.Add "Pdf Files", "*.pdf; *.pdf; *.pdf; *.pdf", 1
        .Show
        On Error GoTo ex
        fullpath = .SelectedItems.Item(1)
    End With
    
    If VBA.InStr(fullpath, ".pdf") = 0 Then
ex:
        Exit Sub
    End If
    
        Set objFSO = CreateObject("Scripting.FileSystemObject")
          
     ActiveSheet.Hyperlinks.Add Anchor:=ActiveCell.Offset(, 1), _
     Address:=fullpath, TextToDisplay:=objFSO.Getfile(fullpath).Name, ScreenTip:=objFSO.Getfile(fullpath).Name
     
End Sub