I have a pivot table that cna be used to create reports per filtered PIVOT
ITEM.

my code jams when it trys to set the visible properties. Can you help?

Sub CreatePivotTabs()
'Create tabs per Pivot table
Dim x, y As Integer
Dim strLOB_NM, strHideLOB_NM As String

Sheets("Pivot Table").Select
With ActiveSheet.PivotTables("PivotTable1").PivotFields ("LOB")
For x = 1 To .PivotItems.Count
For y = 1 To .PivotItems.Count
If y < x Then
strHideLOB_NM = .PivotItems(y).Name
.PivotItems(strHideLOB_NM).Visible = False
Else
.PivotItems(y).Visible = True
strLOB_NM = .PivotItems(y).Name
End If
Next y
'create report and create on New tab named via strLOB_NM
' FormatAuditIssueTables Sheets("Pivot Table"), strLOB_NM

Sheets("Pivot Table").Select

Next x
End With
End Sub

Thank you so much!