Error: Visbility PivotTable

[Torstensson]

Hi,

Trying to change to visibility in some pivottables with a macro.

Run-time error 1004
Unable to set the Visible property of the PivotItem class.

Been trying to find a solution but nothing has worked so far.

Sub Country()

    Sheets("Pivot").Select
    With ActiveSheet.PivotTables("Pivottabell4").PivotFields("Country")
        .PivotItems("NO").Visible = False
        .PivotItems("SE").Visible = True
    End With
    
   
End Sub

 

[Torstensson]

Hi,

Trying to change to visibility in some pivottables with a macro.

Run-time error 1004
Unable to set the Visible property of the PivotItem class.

Been trying to find a solution but nothing has worked so far.

Sub Country()

    Sheets("Pivot").Select
    With ActiveSheet.PivotTables("Pivottabell4").PivotFields("Country")
        .PivotItems("NO").Visible = False
        .PivotItems("SE").Visible = True
    End With
    
   
End Sub

Just noticed that it works when changing the code to:

Sub Country()

    Sheets("Pivot").Select
    With ActiveSheet.PivotTables("Pivottabell4").PivotFields("Country")
        .PivotItems("SE").Visible = True
        .PivotItems("NO").Visible = False
        .PivotItems("(blank)").Visible = False
    End With
    
   
End Sub

Anybody know why?