Read Pivotitem propertie to a variable

[ETID]

Hi fellow VBA Dabblers,...

Does anyone know how to return if a pivot item is hidden via vba?
This code runs but returns false even though many are true
------------------------------


Sub Pivot_Items_Selected()

Dim PvtItemName As String

With ActiveSheet.PivotTables("PivotTable2").PivotFields("MY_FIELD")
For i = 1 To .PivotItems.Count
PvtItemName = .PivotItems(i).Name
If .PivotItems(PvtItemName).Visible = False Then
Debug.Print .PivotItems(i).Name
Else
End If
Next
End With

End Sub

 

[ETID]

Got it

This code from excelforum.com does the trick if anyone needs to know......

Sub PageItemsHidden()
Dim pt As PivotTable
Dim pf As PivotField
Dim pi As PivotItem
Dim piCurr As String

Set pt = ActiveSheet.PivotTables(1)
Set pf = pt.PivotFields("MY_FIELD")
piCurr = pf.CurrentPage
For Each pi In pf.PivotItems
On Error Resume Next
pf.CurrentPage = pi.Name
Debug.Print pi.Name & " - " & pi.Visible
Next pi
pf.CurrentPage = piCurr
End Sub