Este fórum está sendo desativado

[leostamato]

Pessoal, gostaria muito da ajuda de vocês.

Eu rodei a rotina abaixo e ela me gera PDFs das abas selecionadas no listbox, porém essa rotina gera arquivos separados para cada aba. Preciso que a rotina me gere, para cada click no botão "Gerar PDF" apenas 1 PDF com todas as abas selecionadas. É possível?

Código: Selecionar todos

Private Sub CommandButton1_Click()
Dim i As Integer, Nome_Arquivo As String

'Conta os itens do listbox
For i = 0 To ListBox1.ListCount - 1
'Verifica se o item do listbox esta selecionado
'Se estiver selecionado continua a rotina
    If ListBox1.Selected(i) Then
        Nome_Arquivo = "C:\Relatórios\" & ListBox1.List(i) & ".pdf"
        Sheets(ListBox1.List(i)).Select
        If WorksheetFunction.CountA(Cells) = 0 Then
            'Exit Sub
        Else
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Nome_Arquivo, Quality _
        :=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
        End If
    End If
Next
End Sub




Private Sub UserForm_Initialize()
    Dim ws As Worksheet
    'Adiciona os Nomes das Abas no Listbox
        For Each ws In ThisWorkbook.Worksheets
                ListBox1.AddItem (ws.Name)
        Next ws
        
End Sub

[leostamato]

Segue o arquivo para análise.

[leostamato]

Resolvido.

Segue o arquivo final