try this
Sub Apply_Date_Filter_From_Worksheet()
Dim pvtTable As PivotTable
Dim pvtField As PivotField
Dim pvtItem As PivotItem
Dim filterDate As Date
Set pvtTable = Worksheets("Pivot_Sheet").PivotTables("PivotTable1")
Set pvtField = pvtTable.PivotFields("Date")
filterDate = CDate(Worksheets("Controls_Sheet").Range("B2"))
On Error Resume Next 'in case date not found
For Each pvtItem In pvtField.PivotItems
If CDate(pvtItem.Value) = filterDate Then
pvtItem.Visible = True
Else
pvtItem.Visible = False
End If
Next pvtItem
End Sub
Bookmarks