Pivot Table PivotItems.Visible is always False when multisampling

Question

I am trying to implement pivot table filtering with one click (similar to this one ). It works great on single elements, but for some reason not on multiple elements:

Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)

  Dim SourcePivotItem As PivotItem
  For Each SourcePivotItem In Target.PageFields(1).PivotItems
    If SourcePivotItem.Visible Then _
      MsgBox SourcePivotItem.Name + " is visible"
      ' Message box never pops when EnableMultiplePageItems=True
  Next SourcePivotItem
End Sub

Any ideas? Should I use another property in multiselect?

ps: I am using Excel 2013.

---

Random things I tried that didn't work:

Target.PivotCache.MissingItemsLimit = xlMissingItemsNone
Target.PivotCache.Refresh
Target.RefreshTable