I recorded a pivot table and have code like this in it. However, each day I
run it against a different file and the Pivot Items are different.
1st day
With ActiveSheet.PivotTables("PivotTable5").PivotFields ("Problem")
.PivotItems("Upgrade").Visible = False
.PivotItems("Slow Speed").Visible = False
.PivotItems("Cannot Create Customer Account").Visible = False
2nd day
With ActiveSheet.PivotTables("PivotTable5").PivotFields ("Problem")
.PivotItems("Out of Service").Visible = False
.PivotItems("Slow Speed").Visible = False
.PivotItems("Account Disabled").Visible = False

The macro aborts any time an entry is not there (Upgrade) and again when
there is a new entry (Out of Service)

So how do you create a pivot table that will run no matter what the data is?
This is the lines after the above.
End With
With ActiveSheet.PivotTables("PivotTable5").PivotFields ("Problem")
.PivotItems("(blank)").Visible = False
End With
With ActiveSheet.PivotTables("PivotTable5").PivotFields ("Cluster")
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("PivotTable5").PivotFields ("Diagnosis")
.Orientation = xlRowField
.Position = 3
End With

ActiveSheet.PivotTables("PivotTable5").PivotFields ("Cluster").Orientation = _
xlHidden

Any help would be appreciated.

Thanks,

Ron