I would like to show all items in PivotFields("PERIOD_NUMBER"). Following is
my code:

Dim pt As PivotTable
Dim pf As PivotField
Dim pi As PivotItem

Set pt = Sheets("Pivot2").PivotTables("pvtWageRptCGFS")
Set pf = pt.PivotFields("PERIOD_NUMBER")

For Each pi In pf.PivotItems
pi.Visible = True
Next pi

Problem: I get run time error '1004' Unable to set the Visible Property of
the Pivot Item Class on "pi.Visible = True"

Thanks in advance for any help!