Error 1004 with PivotItems.Visible

[Guest]

I record this macro as I un-select one item and then select another item:
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Env")
.PivotItems("1").Visible = False
.PivotItems("42").Visible = True
End With
But when I then try to run (playback) the macro, I get an error 1004.
I still get the error if I change the order and put True first, then False.

What am I missing?

Thanks,
Charlie Rowe

 

[Debra Dalgleish]

To prevent the error, set the Sort for the field to Manual. For example:

Dim intASO As Integer
With ActiveSheet.PivotTables("PivotTable2").PivotFields("Employee")
intASO = .AutoSortOrder
.AutoSort xlManual, .SourceName
.PivotItems("1").Visible = False
.PivotItems("42").Visible = True
.AutoSort intASO, .SourceName
End With

 

[Guest]

Debra,

WOW, thank you so much; I would have never figured that out.
How did you ever figure it out?

Charlie Rowe