Makro og pivot

Kan ikke få min pivot til at virke med hensyn til hvad den skal vise.

Der hvor den kommer med fejl er tryk på knappen "skjul detalje"
2 gange



  With ActiveSheet.PivotTables("Pivottabel3").PivotFields("IL")
        .Orientation = xlDataField
        .Caption = "Sum af IL"
        .Function = xlSum
    End With
    With ActiveSheet.PivotTables("Pivottabel3").PivotFields(".")
        .PivotItems("-5").Visible = False
        .PivotItems("-4").Visible = False
        .PivotItems("-3").Visible = False
        .PivotItems("-2").Visible = False
        .PivotItems("-1").Visible = False
       
    End With
    Selection.ShowDetail = False (**** Her kommer den med fejl**)
    Selection.ShowDetail = False
    ActiveSheet.PivotTables("Pivottabel3").PivotSelect "", xlDataAndLabel
    ActiveSheet.PivotTables("Pivottabel3").Format xlReport2
    ActiveSheet.PivotTables("Pivottabel3").PivotSelect "", xlDataAndLabel
    ActiveSheet.PivotTables("Pivottabel3").Format xlPTNone
    ActiveWindow.SmallScroll Down:=69