Grabar macro en PDF

Hola,

También tengo un problema con el error 5.

La macro funciona para las 6 primeras pestañas de 29 que guarda en PDF, luego falla, ¡es imposible entender por qué?!

Si tienes alguna idea para ayudarme, estaré encantado.


Sub Guardar_PDF()
'La variable Chemin contendrá la ruta de la selección y
'elección tomará el valor 0 para buscar únicamente carpetas y
'cualquier otro valor (de 1 a 255) para buscar una carpeta o un archivo.
'elección de directorio
Dim elección As Byte
elección = 0
Chemin = ElecciónCarpetaArchivo(elección)
If Chemin <> "" Then
For X = 1 To Worksheets.Count
NO = Worksheets(X).Name
Worksheets(NO).ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & "\" & NO & " Comisión " & Format(Date, "yyyy-mm") & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Next X
End If
End Sub

'código encontrado en internet para seleccionar carpeta o/ y archivo
Function ElecciónCarpetaArchivo(TipoSel As Byte) As String
Dim objShell As Object, objCarpeta As Object
Dim Chemin As String, Msg As String
Dim BanderaElección As Long, NbPunto As Integer

If TipoSel = 0 Then
BanderaElección = &H1
Msg = "Seleccionar una carpeta:"
Else
BanderaElección = &H4000
Msg = "Seleccionar un archivo:"
End If

Set objShell = CreateObject("Shell.Application")
' &h1
' 1er parámetro siempre 0 (cero). Representa el handle de la ventana padre
' 2º parámetro Título del cuadro, debajo de la barra de título
' 3er parámetro opciones de BrowseForFolder
' 4º parámetro Opcional. Directorio inicial de exploración
On Error Resume Next
Set objCarpeta = objShell.BrowseForFolder(&H0&, Msg, BanderaElección)
'Si el objeto devuelto es válido, se prueba su contenido (item.title)
'Si seleccionamos la raíz de una partición, se compone del nombre de la partición,
' seguido de su letra y ":" entre paréntesis NbPunto = InStr(objCarpeta.Title, ":")
If NbPunto = 0 Then
'De lo contrario, se compone del nombre de la carpeta únicamente, sin la ruta anterior
'Recuperamos esta ruta a través de la propiedad y método ParentFolder.ParseName
Chemin = objCarpeta.ParentFolder.ParseName(objCarpeta.Title).Path & ""
Else
'si es raíz, recuperamos la letra de la unidad y los 2 puntos
Chemin = Mid(objCarpeta.Title, NbPunto - 1, 2)
End If
ElecciónCarpetaArchivo = Chemin
End Function


Gracias de antemano.

Hola,

Yo necesitaría la misma base, pero que esto solo afecte a la hoja activa y no a las demás... ¿Cómo lo hago?