Pivottabel i vba excel

Hej,

Jeg ønsker i slutningen af en makro at lave en pivottabel.
har lavet følgende:

Columns("A:H").Select
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "Blad1!C1:C8").CreatePivotTable TableDestination:="[test.xls]Blad1!R5C11", _
        TableName:="Pivottabel2", DefaultVersion:=xlPivotTableVersion10
    With ActiveSheet.PivotTables("Pivottabel2").PivotFields("HC Varenummer")
        .Orientation = xlRowField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("Pivottabel2").PivotFields("Month of Ordering")
        .Orientation = xlColumnField
        .Position = 1
    End With
    ActiveSheet.PivotTables("Pivottabel2").AddDataField ActiveSheet.PivotTables( _
        "Pivottabel2").PivotFields("Basiseinde"), "Antal af Basiseinde", xlCount

Når dette køres kommer følgende fejlmeddelse dog: run-time error 1004: kan ikke angive egenskaben PivotFields for klassen PivotTable.


hvad kan der gøres??

På forhånd tak!

Daniel