El macro de mi Excel no funciona. El error surge cuando en la parte del código para general el PDF.

El código actual es este, y el error me marca en "ruta =":

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