Try putting iCode.Value in this loop:

For Each iCode In PT.PivotFields("product_code").PivotItems
PT.PivotFields("product_code").PivotItem
(iCode.Value).Visible = False
Next iCode

-----Original Message-----
Hello-

I am trying to take selections from a ListBox (named
Product_Codes)
and use those selections in a pivot table. As a first
step I am
trying to deselect all items in a pivot field
called "product_code"
but I keep getting an error. Here is my code (sorry if
it posts
sloppy):

[vb]Private Sub Create_Report_Click()

Dim iCode As PivotItem
Dim PT As PivotTable

Set PT = Sheets("Network").PivotTables("PivotTable1")

Application.ScreenUpdating = False

' Clear all Product Codes from Pivot Field "product_code"

For Each iCode In PT.PivotFields
("product_code").PivotItems
PT.PivotFields("product_code").PivotItems
(iCode).Visible = False
'Gettin
g error
here;
Next iCode '"Unable to get PivotItems Property of
the
PivotField Class

Application.screendupdating = True

End Sub[/vb]

I know it is difficult without seeing the userform or
file, but any
help is appreciated. Thanks!
.