Sub EE_PivotTurnOffNonBlank(pvtField)
'http://excelexperts.com/xla-routines-eePivotTurnOffNonBlank    for updates on this sub routine
' turns off non-blank items from pivot table
' assumes 1 pivot on page, no error checking

    Dim pvtItem
 
    pvtField.CurrentPage = "(All)"
    pvtField.EnableMultiplePageItems = True
    For Each pvtItem In pvtField.PivotItems
        If pvtItem.Name = "(blank)" Then
                pvtItem.Visible = True
            Else
                pvtItem.Visible = False
        End If
    Next
 
End Sub