Filter Pivot table to blank if value doesnt match target

[jacinthn]

i have this code that works for filtering a pivot table to the cell value in b3, I am trying to figure out a way to filter it to (blank) if the cell value in B3 is not in .PivotFields("MGR").because rigth now it just leaves the previous values that the pivot was filtered to when the selected b3 cell value is not included in the list of items for ("MGR")... HELP please

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B3")) Is Nothing Then Exit Sub
On Error Resume Next
Application.EnableEvents = False
Sheets("MainPage").PivotTables("PivotTable4").PivotCache.Refresh
With Worksheets("MainPage").PivotTables("PivotTable4")
.PivotCache.Refresh
.PivotFields("MGR").CurrentPage = Target.Value

End With

Application.EnableEvents = True
End Sub