Excel impressão em vba no excel

[Nortonap]

Amigos, boa tarde.

Encontrei, na internet, um código para salvar em PDF  todas as pastas de trabalhos ativas (não ocultas) em uma determinada planilha.

-------------------------------------------------------------------------------------------------------------------------------------------------

Sub GerarPDFponto()
Dim SvInput As String
Dim Data As String
Dim Nome As String
Nome = InputBox("Digite o nome para a emissão da PI", "Gerar documento em PDF")
Data = VBA.Format(VBA.Date, "dd-mm-yyyy")
SvInput = ThisWorkbook.Path & Application.PathSeparator & Nome & "_" & Data & ".pdf"
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=SvInput, OpenAfterPublish:=True
End Sub

-------------------------------------------------------------------------------------------------------------------------------------------------

O VBA funciona bem, mas não é exatamente o que eu quero. Dentro dessa planilha, tenho, ao todo,4 (QUATRO) pastas de trabalho (Configurações [oculta]; Capa [não oculta]; Lista [não oculta]; Estatísticas [não oculta]), mas gostaria que o VBA mprimisse apenas a pasta Capa e Lista.. Alguém saberia me dizer como fazer?

[Basole]

Vejas se é isso que desejas

 

Sub GerarPDFponto()
    Dim SvInput   As String
    Dim Data      As String
    Dim Nome      As String
    Dim abasPrint As Variant
    
    abasPrint = Array("Capa", "Lista")
    
    Nome = InputBox("Digite o nome para a emissão da PI", "Gerar documento em PDF")
    Data = VBA.Format(VBA.Date, "dd-mm-yyyy")
    SvInput = ThisWorkbook.Path & Application.PathSeparator & Nome & "_" & Data & ".pdf"
    
    ThisWorkbook.Sheets(abasPrint).Select
    
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=SvInput, OpenAfterPublish:=True
    
End Sub

 

 

[Nortonap]

@Basole, perfeito, meu amigo. Era exatamente isso. Muito obrigado pela ajuda. Já curti e tentarei encerrar o tópico. Parabéns pelo conhecimento!