VBA shortcut to control Pivot Table

Hi all,

Please can someone tell me if there is a way to uncheck all items in a pivot table row label selection without listing each item (There are a lot of items).
Ive been using the below code to remove my blanks from my reports but I need now to uncheck everything (then check on a single item).
Hope that makes sense

Thanks

With ActiveSheet.PivotTables("PMA4").PivotFields("Rep Month")
.PivotItems("(blank)").Visible = False
End With