Langsom VBA i excel 2010

Hej.

Jeg har opgraderet fra 2003 til 2010 og det giver store problemer med hastigheden på min VBA kode.

Jeg har følgende kode i Excel:

Jeg starter med følgende for at optimere hastigheden:

Application.ScreenUpdating = False
ActiveSheet.PivotTables("Pivottabel1").ManualUpdate = True
    With Application
        .Calculation = xlManual
    End With

Herefter koden, som er uhyr langsom i Excel 2010, hvor det tager 38 sekunder, men i Excel 2003 tager det blot 1 sekund:


Public Sub OPB(op As Object, NR As String) 'AFDELINGER
Starttid = Now
'On Error Resume Next
A = 1
    With ActiveSheet.PivotTables("Pivottabel1").PivotFields("Butik")
        .Orientation = xlPageField
    End With
        With ActiveSheet.PivotTables("Pivottabel1").PivotFields("Butik")
            Y = .PivotItems.Count
            .PivotItems(Y).Visible = True
        End With
If NR = "0" Then
   
    With ActiveSheet.PivotTables("Pivottabel1").PivotFields("Butik")
        For X = 1 To .PivotItems.Count
                .PivotItems(X).Visible = True
        Next
                .PivotItems("51").Visible = False
                .PivotItems("61").Visible = False
                .PivotItems("70").Visible = False
                .PivotItems("72").Visible = False
                .PivotItems("74").Visible = False
    End With

Else

If op = True Then
    With ActiveSheet.PivotTables("Pivottabel1").PivotFields("Butik")
        For X = 1 To .PivotItems.Count
            NR1 = .PivotItems(X).Name
            If NR1 = NR Then
                .PivotItems(X).Visible = True
    Else
                .PivotItems(X).Visible = False
    End If
        Next
    End With
End If
End If
A = 0
MsgBox "Opdateringen er færdig og varede " & FormatDateTime(Now - Starttid, vbLongTime)
End Sub

Hvad gør jeg for, at det kører ligeså hurtig i Excel 2010 som i 2003?