Set Pivot-Table Visible Items

[Mike H.]

With ActiveSheet.PivotTables("AssetPT").PivotFields("Cost ctr")
.PivotItems("12476").Visible = True
.PivotItems(DataArray(X, 1)).Visible = True
end with

Why would the line with "12476" work and the line immediately below, where
DataARray(x,1) equals "12476" give me this error:

Error (1004) Unable to get teh pivotItems property of the pivotfield
class?????

 

[Debra Dalgleish]

Manually or programmatically set the field to Manual sort, to prevent
that error:

With ActiveSheet.PivotTables("AssetPT").PivotFields("Cost ctr")
.AutoSort xlManual, .SourceName