Tabellen bedingt wählen

Sub pdf_Erzeugen_v1()
Dim wsE As Worksheet, arr
Set wsE = ThisWorkbook.Worksheets("Eingabe")
If wsE.Range("D10") Then
If arr = "" Then arr = "Regelpension" Else arr = arr & ", " & "Regelpension"
If wsE.Range("A13") Then arr = arr & ", " & "DR Regelpension"
End If
If wsE.Range("D11") Then
If arr = "" Then arr = "Korridorpension" Else arr = arr & ", " & "Korridorpension"
If wsE.Range("A26") Then arr = arr & ", " & "DR Korridorpension"
End If
If wsE.Range("D12") Then
If arr = "" Then arr = "Dienstunfähigkeitspension" Else arr = arr & ", " & "Dienstunfä _
higkeitspension"
If wsE.Range("A37") Then arr = arr & ", " & "DR Dienstunfähigkeitspension"
End If
Sheets(Array(arr)).Select
'    Sheets(Array("Regelpension", "Korridorpension", "Dienstunfähigkeitspension", _
"DR Regelpension", "DR Korridorpension", "DR Dienstunfähigkeitspension")).Select
End Sub