I find the workaround suggestion in following topic does not work.

My workaround suggestion is: Setting the sorting of the pivot field to "Manual" before setting its pivot items visible.

With ActiveSheet.PivotTables("PivotTable1").PivotFields("field1")

call .AutoSort(xlManual,"field1")

.PivotItems("1").Visible = False

.PivotItems("2").Visible = False

.PivotItems("7").Visible = False

End With

//--------------------------- From Microsoft ---------------------------\\

The engineer found some additional information on this issue:

About Error:"Unable to Set Visible Property PivotItem class"

SYMPTOMS

When you run a recorded Visual Basic, Applications Edition, macro to set up a pivot table in which discontiguous items are hidden in the PivotTable Field dialog box, you may receive the following error message:

Unable to set the Visible property of the PivotItem class

CAUSE

Only contiguous items in a PivotTable Field can be hidden.

STATUS

Microsoft has confirmed this to be a problem in the Microsoft products listed at the beginning of this article. This problem was corrected in Microsoft Excel for Windows version 5.0c.

WORKAROUND

To work around this problem, remove or disable (use an apostrophe to comment out) the line or lines that set the visible property of discontiguous items in the field to False; removing or disabling this line will allow your macro to run successfully.

For example, in the following code, you would comment out the fourth line down to disable the code that causes the error:

With ActiveSheet.PivotTables("PivotTable1").PivotFields("field1")

.PivotItems("1").Visible = False

.PivotItems("2").Visible = False '

.PivotItems("7").Visible = False

End With