Pivot tabel Makro

Hej eksperter.


Jeg har en opgave hvor jeg forsøger at få en makro til at lave en pivot tabel, hvor den henter området fra et andet aktivt faneblad.

Jeg får en fejl, så snart jeg forsøger at afspille makroen efterfølgende.

Her er min fil:

Range("A1").Select
    ActiveWorkbook.Worksheets("Pivot_Arla").PivotTables("Pivottabel1").PivotCache. _
        CreatePivotTable TableDestination:="Ark5!R1C1", TableName:="Pivottabel3", _
        DefaultVersion:=xlPivotTableVersion14
    Sheets("Ark5").Select
    Cells(1, 1).Select
    ActiveWorkbook.ShowPivotTableFieldList = True
    With ActiveSheet.PivotTables("Pivottabel3").PivotFields("Name")
        .Orientation = xlPageField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("Pivottabel3").PivotFields("År")
        .Orientation = xlColumnField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("Pivottabel3").PivotFields("Måned")
        .Orientation = xlColumnField
        .Position = 2
    End With
    ActiveSheet.PivotTables("Pivottabel3").AddDataField ActiveSheet.PivotTables( _
        "Pivottabel3").PivotFields("Rate"), "Sum af Rate", xlSum
    With ActiveSheet.PivotTables("Pivottabel3").PivotFields("Sum af Rate")
        .Caption = "Gennemsnit af Rate"
        .Function = xlAverage
    End With
    With ActiveSheet.PivotTables("Pivottabel3").PivotFields("Condition currency")
        .Orientation = xlRowField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("Pivottabel3").PivotFields("Description")
        .Orientation = xlRowField
        .Position = 2
    End With
    ActiveSheet.PivotTables("Pivottabel3").PivotFields("Name").ClearAllFilters
    ActiveSheet.PivotTables("Pivottabel3").PivotFields("Name").CurrentPage = _
        "Arla Foods amba"
End Sub


Det jeg har markeret med fed, er hvad der er markeret med gul i editoren (debug mode). Men kunne forestille mig jeg også har lavet andre fodfejl.

Jeg håber i kan hjælpe mig :)