Pivot Field Show All Except Blank

Question

I need to update a pivot filter after refresh to select all filter options except blank.
Other answers here make use of .ShowAllItems method which

Answer 1

When I have to do this, I just use something like:

On Error Resume Next
With pvt
        .ClearAllFilters
        .PivotItems("(blank)").Visible = False
End With