Speichern unter pdf Addin

Private Sub CommandButton1_Click()
Dim lListBox  As Long
Dim aTemp()   As Variant
Dim iIndex    As Integer
Dim DruckerAktiv As String
Dim oSheetAktiv As Object
Set oSheetAktiv = ActiveSheet
'Einstellung zurücksetzen
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Range("D2") = True Then
ws.Range("D2") = False
End If
Next ws
'Index-Nummern der selektierte Blätter in temporäres Array schreiben
For lListBox = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(lListBox) Then
iIndex = iIndex + 1
ReDim Preserve aTemp(1 To iIndex)
aTemp(iIndex) = CLng(ListBox1.List(lListBox, 2))
'schreibt Auswahl (Drucken = ja) in Tabellenblatt zurück
Worksheets(aTemp(iIndex)).Cells(2, 4) = True
End If
Next lListBox
End Sub

    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"R:\Help\PDF\Tabelle1.pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
ActiveWorkbook.Save