Este fórum está sendo desativado

[Dione]

Tenho o código abaixo que imprime as abas determinas. Mas gostaria de adicionar condição em cada aba,  e se tal condição seja  atendida a aba seja impressa. Pois nem sempre preciso que seja impressa todas as abas.

Condição: Se a célula AA1 de cada aba seja =1 imprimir, diferente disso não imprimir.



Sub SALVAR_PDF()
'
' SALVAR_PDF Macro
'

'
    ActiveWorkbook.Save
    Sheets(Array("Aut", "+A", "2", "3", "4", "S", "A")).Select
    Sheets("+A").Activate
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\P\Downloads\Projeto " & Cells(7, 2).Value & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
    Sheets("+A").Select
   
End Sub

[Jonathaluis]

Segue:

Sub SALVAR_PDF()
'
' SALVAR_PDF Macro
'

'
ActiveWorkbook.Save
Dim List()
Dim NList()
Dim tamanho As Integer
List = Array("Aut", "+A", "2", "3", "4", "S", "A")
tamanho = 0
For Each aba In List
If (Sheets(aba).Range("AA1").Value = 1) Then
ReDim Preserve NList(tamanho)
NList(tamanho) = aba
tamanho = tamanho + 1
End If
Next


Sheets(NList).Select
Sheets("+A").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\P\Downloads\Projeto " & Cells(7, 2).Value & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
Sheets("+A").Select

End Sub