Druckmakro hängt

Sub prcMakePDF()
Dim wksControl As Worksheet
Dim arrSheets() As String, intS As Integer
Dim objShape As Shape, intShape As Integer
Dim varFilename
'Tabellenblatt mit Checkboxen und Schalfläche setzen
Set wksControl = ActiveWorkbook.Sheets(1)
'Prüfen welche Checkboxen gesetzt sind zugehörige Blattnamen in Array sammeln
For Each objShape In wksControl.Shapes
If objShape.Type = msoFormControl Then
If objShape.FormControlType = xlCheckBox Then
'Prüfen, ob die linke obere Zelle der Checkbox rechts des Zellbereichs mit _
den Blattnamen plaziert ist
If Not Intersect(wksControl.Range("B38:B45"), _
objShape.TopLeftCell.Offset(0, -7)) Is Nothing Then
'prüfen, ob Checkbox markiert ist
If objShape.ControlFormat.Value = 1 Then
intS = intS + 1
ReDim Preserve arrSheets(1 To intS)
'Zellinhalt in Zelle links von Checkbox als Tabellennamen einlesen
arrSheets(intS) = objShape.TopLeftCell.Offset(0, -7).Text
End If
End If
End If
End If
Next objShape
If intS = 0 Then
MsgBox "Es wurden keine Blätter für die PDF-Ausgabe gewählt."
Else
varFilename = ActiveWorkbook.Name
varFilename = Left(varFilename, InStrRev(varFilename, ".") - 1)
varFilename = varFilename & " " & Format(Now, "YYYY-MM-DD hhmmss") & ".pdf"
varFilename = ActiveWorkbook.Path & "\" & varFilename
varFilename = Application.GetSaveAsFilename(InitialFileName:=varFilename, _
Filefilter:="PDF-Dateien (*.pdf),*.pdf)", _
Title:="Speichern unter - Bitte Namen der PDF-Datei eingeben/auswählen", _
ButtonText:="Speichern unter")
If Not varFilename = False Then
Application.ScreenUpdating = False
ActiveWorkbook.Sheets(arrSheets).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=varFilename, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
End If
wksControl.Select
Application.ScreenUpdating = True
End If
End Sub