lVisibleItemsList = lField.VisibleItemsList

Sub NamesOfItems()

Dim pvtTable As PivotTable
Dim pvtField As PivotField
Dim pvtItem As PivotItem, pvtItem1 As PivotItem

'This code print items of PivotItems and VisibleItems collections

Set pvtTable = Sheet1.Range("A2").PivotTable

For Each pvtField In pvtTable.PivotFields
'Debug.Print pvtField.name
'Debug.Print pvtField.SourceName

'print PivotItem Names
For Each pvtItem In pvtField.PivotItems

    Debug.Print pvtItem.name

Next pvtItem

'For Each pvtItem1 In pvtField.VisibleItems
'
'    Debug.Print pvtItem1.name
'
'Next pvtItem1

Debug.Print "-----"

Next pvtField
End Sub