Stampa e Salva PDF Condizionale

Buongiorno a tutti,
premetto che sono alle prime armi.Ho due quesiti

Primo quesito - stampa condizionale
Ho creato un file excel con più fogli e vorrei gestire con delle variabili la stampa condizionata dei fogli successivi.
Nel primo foglio nelle celle A2:A5 indico "SI" o "NO" per gestire rispettivamente la stampa dei successivi fogli 2, 3, 4 e 5.
Ho quindi inserito questa macro:
-----
Sub STAMPA()

With Sheets("Foglio1")

If [a2] = "SI" Then
Sheets("Foglio2").PrintOut from:=1, to:=1
End If

If [a3] = "SI" Then
Sheets("Foglio3").PrintOut from:=1, to:=1
End If

If [a4] = "SI" Then
Sheets("Foglio4").PrintOut from:=1, to:=1
End If

If [a5] = "SI" Then
Sheets("Foglio5").PrintOut from:=1, to:=1
End If


End With

End Sub

-----

ma stampa solo i primi due fogli (foglio 2 e foglio 3).
Come mai?

Secondo quesito - SalvaComePdf
Vorrei poter creare lo stesso meccanismo finalizzato però non alla stampa ma al salvataggio in un unico pdf dei fogli che mi interessano (da gestire sempre con le variabili SI/NO)
C'è un modo?

Grazie
Claudio