Excel Macro pra imprimir(PDF) aba com condição

[Dione p]

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

 

[Basole]

@Dione p veja se é isso.....

 

 

 

Sub SALVAR_PDF()
'
' SALVAR_PDF Macro
Dim ws  As Worksheet
Dim i   As Integer
       
  With ActiveWorkbook
  
    For Each ws In .Sheets(Array("Aut", "+A", "2", "3", "4", "S", "A"))
        If .Sheets(ws.Name).Range("AA1").Value = 1 Then
            If i > 0 Then
                .sheets(ws.Name).Select False
                i = i + 1
            Else
                .sheets(ws.Name).Select
            i = i + 1
            End If
        End If
    Next ws

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