VBA PDF

Hej med Jer

Jeg har lavet et PDF system, som virker til dels. Dog vil den ikke vende siden korrekt, det har jeg så fået løst med dette:

    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .PrintArea = "A:L"
        .FitToPagesWide = 1
        .FitToPagesTall = 0
    End With
    Application.PrintCommunication = True

Når den så har kørt scriptet igennem, så er mit excel langsom reagerende. Det vil sige, at når jeg trykker rundt på mit ark, så er det ligesom om der er et delay på.
Lukker jeg excel helt ned og op igen, så kører alt 100% og uden delay.

Har forsøgt at tilføje dette:
    With Application
        .DisplayAlerts = False
        .EnableEvents = False
        .ScreenUpdating = False
        .Calculation = xlCalculationManual
    End With

I starten af scriptet og dette i slutningen:

    With Application
        .Calculation = xlCalculationAutomatic
        .ScreenUpdating = True
        .EnableEvents = True
        .DisplayAlerts = True
    End With

Dog uden held. Nogen som kan forklare mig, hvorfor det bliver langsomt?