can't set pivotitem be visible

[phoeberunner]

Hi,

I have the following code,

For i = 1 To pvt.RowFields("CPU Type").PivotItems.Count
pvt.RowFields("CPU Type").PivotItems(i).Visible = True
Next i

When PivotItem = "CISC", or "EPIC", and "RISC", it was okay.
When PivotItem = "x86-32", it popped an error.

Does anybody know why? I changed the code as follow, but still not working.

For i = 1 To pvt.RowFields("CPU Type").PivotItems.Count
strItem = pvt.RowFields("CPU Type").PivotItems(i)
pvt.RowFields("CPU Type").PivotItems(strItem).Visible = True
Next i

Phoebe