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

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

Mike H. wrote:
With ActiveSheet.PivotTables("AssetPT").PivotFields("Co st 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
Contextures
www.contextures.com/tiptech.html
Blog: http://blog.contextures.com