Visual Basic para Aplicaciones - Guardar como pdf o xlsx

Sub ExportarPDf()

Dim Ruta As String

Dim NombreArchivo As String

Dim hoja As Object

    Application.ScreenUpdating = False

    With Application.FileDialog(msoFileDialogFolderPicker)

    .Title = "GUARDAR COMO PDF - Seleccionar carpeta"

    .Show

    If .SelectedItems.Count = 0 Then

    'nada

    Else

        Ruta = .SelectedItems(1)

        NombreArchivo = Cells(11, 5)

        MsgBox "Guardado en PDF " & NombreArchivo, vbInformation, "MENSAJE "

        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Ruta & "\" & NombreArchivo & ".pdf", OpenAfterPublish:=False

        End If

    Application.ScreenUpdating = True

 End With

End Sub

Sub ExportarPDf_y XLSX()

    Dim Ruta As String

    Dim NombreArchivo As String

    Dim hoja As Object

    Dim Libro_Actual As String, Hoja_Actual as String, Libro_Nuevo as String

    Application.ScreenUpdating = False

    With Application.FileDialog(msoFileDialogFolderPicker)

        .Title = "GUARDAR COMO PDF - Seleccionar carpeta"

        .Show

        If .SelectedItems.Count <> 0 Then

            Ruta = .SelectedItems(1)

            NombreArchivo = Cells(11, 5)

            MsgBox "Guardado en PDF " & NombreArchivo, vbInformation, "MENSAJE "

            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _

                                            Filename:=Ruta & "\" & NombreArchivo & ".pdf", _

                                            OpenAfterPublish:=False

            ' ---&---- Guardar como XLSX

            Libro_Actual = ActiveWorkbook.Name

            Hoja_Actual = ActiveSheet.Name

            Workbooks.Add                      ' --- Crea un nuevo Libro

            Libro_Nuevo = ActiveWorkbook.Name  ' --- Nombre del Libro nuevo

            Windows(Libro_Actual).Activate     ' --- Activo MI libro

            Sheets(Hoja_Actual).Select         ' --- Selecciono MI hoja a copiar

            ' ---&--- Copia la hoja al libro nuevo

            Sheets(Hoja_Actual).Copy Before:=Workbooks(Libro_Nuevo).Sheets(1)  ' --- 

            ' ---&--- Guarda el libro nuevo y lo cierra

            ActiveWorkbook.SaveAs Filename:=Ruta & "\" & NombreArchivo & "xlsx", _

                                  FileFormat:=xlOpenXMLWorkbook, _

                                  CreateBackup:=False

            ActiveWorkbook.Close

        End If

    End With

    Application.ScreenUpdating = True

End Sub