Public Sub Apri()
    Application.Dialogs(xlDialogOpen).Show
    Dim Nome_file As String
End Sub

Sub cercaFile()
  Dim fd As FileDialog
    Dim percorso As Variant
    Dim cartella As String

    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    
    With fd
        'se vuoi impostare una directory di partenza. In questo caso apre la directory posta sul desktop e seleziona solo i file di excel (*.xls)
        .InitialFileName = "C:DocumentsDesktop*.xls" 'Oppure puoi semplicemete inserire il contenuto della cella F1, purchè rispetti la sintassi
        'nome della finestra di dialogo che si apre
        .Title = "Sfoglia cartelle"
        'se vuoi assegnare un nome diverso al pulsante di conferma
        .ButtonName = "OK"
        'disabilito la selezione multipla
        .AllowMultiSelect = False
        .InitialView = msoFileDialogViewDetails
        .Show
        For Each percorso In .SelectedItems
            cartella = percorso
        Next
    End With

    'la variabile cartella contiene il nome della cartella selezionata e la scrive sul MsgBox
    MsgBox cartella


End Sub

Option Explicit

Public Sub ExecuteFile(FilePath As String)
    On Error GoTo error
    Dim ret As Integer
    ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & (FilePath), vbNormalFocus)
    Exit Sub
error:
    MsgBox Err.Description, vbExclamation, "Error"
End Sub

Sub Apri_file_fisso()
    Dim FilePath As Variant
    FilePath = ActiveSheet.Range("F1").Value ' in questa cella devi inserire il percorso, il nome del file e la sua estensione tipo .pdf, .xls.xlsm ecc. 
    If FilePath = "" Then Exit Sub
    ExecuteFile (FilePath)
End Sub