pivot tabel makro

hej Eksperter, jeg har et problem med en makro, jeg har indspillet.
den er:
Sub Oprette_pivot()
'
' Oprette_pivot Makro
' Makro indspillet 04-10-2002 af RDE
'

'
    Windows("RNI regneark.xls").Activate
    Columns("A:F").Select
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "'RNI regneark'!C1:C6").CreatePivotTable TableDestination:="", TableName:= _
        "Pivottabel3"
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    With ActiveSheet.PivotTables("Pivottabel3")
        .ColumnGrand = False
        .RowGrand = False
        .SmallGrid = False
    End With
    ActiveSheet.PivotTables("Pivottabel3").AddFields RowFields:="Leveringssted", _
        ColumnFields:="Uge"
    ActiveSheet.PivotTables("Pivottabel3").PivotFields("Retur").Orientation = _
        xlDataField
    Range("B5").Select
    ActiveSheet.PivotTables("Pivottabel3").PivotFields("Antal af Retur").Function _
        = xlSum
    With ActiveSheet.PivotTables("Pivottabel3").PivotFields("Uge")
        .PivotItems("(Tom)").Visible = False
    End With
    Sheets("Ark1").Select
    Sheets("Ark1").Name = "Retur"
    Windows("Mappe2").Activate
End Sub
Og minder om spørgsmål http://www.eksperten.dk/spm/245693

Men jeg kan ikke lige gennemskue problemet.
Når den når ned til: ActiveSheet.PivotTables("Pivottabel3").AddFields RowFields:="Leveringssted", _
        ColumnFields:="Uge"
    melder den om fejl 1004, kan nogen hjælpe.