Druckbereich VBA

Sub Druck()
'Einen dynamischen String-Array deklarieren:
Dim arrBlätter() As String
'Diesen Array zB. auf 2 Elemente festlegen:
ReDim arrBlätter(1 To 2)
arrBlätter(1) = "Tabelle 1"
arrBlätter(2) = "Tabelle 2"
'Falls eine Vergrößerung zB. auf 3 Elemente notwendig ist,
'ohne dabei die bisherigen Elementinhalte zu verlieren:
ReDim Preserve arrBlätter(1 To 5)
arrBlätter(3) = "Tabelle 3"
arrBlätter(4) = "Tabelle 4"
arrBlätter(5) = "Tabelle 5"
Sheets(arrBlätter).Select
Sheets(arrBlätter(1)).Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\Mappe.pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
'Deselektion der 3 Arbeitsblätter:
Sheets("Tabelle 3").Select
End Sub