Excel - Macro - Pivot Tables - Manipulating - Refreshing, clearing filters and hiding "blanks"

Macro-Pivot-Manipulating-Refresh_clear_filters_hiding.txt

Sub list_refresh()
'
' list_refresh Macro
' Refreshes the two Pivot Table lists for the Project Details
'

'
Dim pf As PivotField
Set pf = Worksheets("PIVOT").PivotTables("PivotTable1").PivotFields("Task")
pf.ClearAllFilters
pf.PivotItems("(blank)").Visible = False
 
Set pf = Worksheets("PIVOT").PivotTables("PivotTable2").PivotFields("User")
pf.ClearAllFilters
pf.PivotItems("(blank)").Visible = False

End Sub

-------------------------
Interesting links:
-------------------------
https://stackoverflow.com/questions/23793680/how-to-select-all-in-a-pivot-table-filter

I had to tables on this sheet and had to refresh them each time to include the new elements that showed up in the pivot fields.