Esport più fogli di lavoro in PDF senza select

Ho 4 fogli, diciamo "Sheet1", "Sheet2", "Sheet3" e "Sheet4".

Per il mio PDF, voglio esportre i contenuti di Sheet3 e Sheet4, in modo da essere raggruppati in un Array come:

Sheets(Array("Sheet3", "Sheet4")); 

Ora, normalmente per esportre in PDF, vorrei select questo, quindi avere

 ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:= _ "C:\filename.pdf", _ Quality:= xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False ActiveSheet.ExportAsFixedFormat _ ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:= _ "C:\filename.pdf", _ Quality:= xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False 

Tuttavia, voglio avere questa macro completamente in background. Se stavo esaminando Sheet1 e gestito questa macro, passerò su Sheet3 perché viene selezionato che distrugge il workflow.

So come farlo per operazioni di base come FillCell dichiarando variables:

 Dim wb As Workbook Dim ws As Worksheet Set wb = ThisWorkbook Set ws = wb.Sheets("Sheet2") ' modify ws 

poiché questo funziona dietro le quinte.

In sintesi, vorrei esportre più fogli di lavoro (non tutti) in PDF senza la necessità di utilizzare Seleziona, Attiva o simile che cambierà la vista della cartella di lavoro / foglio che sto attualmente guardando.

Questo dovrebbe fare il trucco.

 Sheets("Sheet 1").ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:= _ "C:\filename.pdf", _ Quality:= xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False