Macro stops when it doesn’t find anymore

[Dundee Lad]

Hi board, this macro stops and gives an error when it doesn’t find anything else starting with F, can you help me find out why?

The FieldName & Pivot get passed in the calling of the macro

Dim pItem As PivotItem
 
For Each pItem In pt.PivotFields(strFieldName).PivotItems
If pItem.Value Like "F*" Then
pItem.Visible = True
Else
pItem.Visible = False
End If
Next

 

[John_w]

Try, before the loop:

    pt.PivotCache.MissingItemsLimit = xlMissingItemsNone
    pt.RefreshTable

 

[Dundee Lad]

John_w, perfect, this was the fix!