Debra,

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

Charlie Rowe



"Debra Dalgleish" wrote:

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

Charlie Rowe wrote:
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
Excel FAQ, Tips & Book List
http://www.contextures.com/tiptech.html