VB Script for Passing a filter from a cell to multiple Pivot tables in same sheet

[satya_quality]

I'm trying to pass a value from a cell to multiple pivots in a same sheet, it is not working.

Here is my code :

Private Sub WorkSheet_SelectionChange(ByVal Target As Range)

With ActiveSheet.PivotTables("PivotTable11").PivotFields("[Date].[Closing Week].[Closing Week]")
.ClearAllFilters
.PivotFilters.Add Type:=xlCaptionContains, Value1:=ActiveSheet.Range("C1").Value

ActiveSheet.PivotTables("PivotTable1").PivotFields ("[Date].[Closing Week].[Closing Week]")
.ClearAllFilters
.PivotFilters.Add Type:=xlCaptionContains, Value1:=ActiveSheet.Range("C1").Value

End With


End Sub

 

[mart37]

Is this [Date].[Closing Week].[Closing Week] the name of the field in the rows section?