Abrir la ruta de la carpeta donde se guardo mi archivo

Prueba lo siguiente

Private Sub Label51_Click()
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Selecciona una carpeta"
        .AllowMultiSelect = False
        .InitialFileName = ruta
        If .Show <> -1 Then Exit Sub
        ruta = .SelectedItems(1) & "\"
    End With
End Sub

sal u dos

Dante disculpa no fui claro, lo que deseo es abrir el explorador donde se guardó mi reporte.

explico un ejemplo.

hago clic en GENERAR y me sale una ventana para elegir donde guardar, lo guardo en la ruta "D:\datos\" esta ruta deseo que se muestre en label51 y cuando lo haga clic me abra esa ruta no el archivo sino la ventana.

nota: la ruta donde guarde mi reporte varía. puede ser mis documentos, disco D: o mi USB.

Pero entonces son 2 cosas, ¿primero qué ponga la ruta en el label?

¿Y después lo del click en el label?

Dante, solo la ruta en el label

¿Poner la ruta en el label?

No te preguntaría si estuviera claro lo que necesitas, pero no entiendo qué necesitas.

Si tienes esto, quedaría así:

    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Selecciona una carpeta"
        .AllowMultiSelect = False
        .InitialFileName = ruta
        If .Show <> -1 Then Exit Sub
        ruta = .SelectedItems(1) & "\"
        label51.caption = ruta
    End With

sal u dos

Dante, es como una segunda opción que deseo agregar para facilitar la ubicación del reporte que genero a pdf.

Lo que no deseo es cuando termine de generar mi reporte, no este clicando carpeta por carpeta hasta llegar a mi archivo pdf creado. pero tampoco se abra el explorador una vez terminado de crear el reporte, sino queda ahí como segunda opción para abrir la carpeta donde se guardó el archivo.

por ello necesito algo label hipervinculado que cuando haga clic me abra la ventana y muestra la carpeta donde se guardó mi archivo.

No, sigo sin entender.

Ya te puse dos macros, y sigo sin entender qué quieres.