Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Cells(1, 1)) Is Nothing Then Exit Sub
Application.EnableEvents = False
With Worksheets("TCD").PivotTables(1).PivotFields("Date")
For Each Pi In .PivotItems
If Pi.Caption = Format(Target.Value, "m/d/yyyy") Then Pi.Visible = False Else Pi.Visible = True
Next
End With
Application.EnableEvents = True
End Sub