Inserire file tramite bottone

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Dim Percorso As String
    Dim x As Integer
    Dim NomeFile As String
    
    If Not Intersect(Target, Range("K:K")) Is Nothing Then
        Cancel = True       'inibisci la modalità modifica
        'sfoglia e ricava il percorso e nome del file pdf
        Percorso = Application.GetOpenFilename("File,*.pdf", Title:="Apri il file PDF")
        'segnala in caso di abbandono ricerca
        If Percorso = "Falso" Then
            MsgBox "Comando Apri annullato volontariamente", vbOKOnly + vbInformation
            Exit Sub
        End If
        'ricava il nome del file senza estensione
        For x = Len(Percorso) To 1 Step -1
            If Mid(Percorso, x, 1) = "\" Then
                NomeFile = Right(Percorso, (Len(Percorso) - x))
                Exit For
            End If
        Next x
        NomeFile = Left(NomeFile, InStr(NomeFile, ".") - 1)
        'verifica ed elimina eventuale iperlink già presente
        If Target.Hyperlinks.Count > 0 Then Target.Hyperlinks.Delete
        'inserisci l'iperlink nella cella
        Target.Hyperlinks.Add Anchor:=Target, Address:=Percorso, TextToDisplay:=NomeFile
    End If
    
End Sub

Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
Dim Rcd As Integer
Dim Nome As String
Const MiaPath As String = "C:\pdf\"   'Indica la tua directory

    ChDir MiaPath
        Rcd = 1
    Nome = Dir("*.pdf*")
        If Nome = "" Then Exit Sub
            While Nome <> ""
                Lista_PDF.AddItem Nome
                ActiveCell.Value = Nome
                    Nome = Dir
                    Rcd = Rcd + 1
            Wend
Application.ScreenUpdating = True
End Sub