¿Como sincronizar filtro en dos tablas dinámicas o mas?

hola soy nuevo en todoexpertos y tengo un problema con el siguiente código.-

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim TablaDinamica As Excel.PivotTable
Const Filtro As String = "MES DE PRODUCCIÓN"
On Error GoTo Salir
Application.EnableEvents = False
For Each TablaDinamica In ActiveSheet.PivotTables
TablaDinamica.PivotFields(Filtro).CurrentPage = Target.PivotFields(Filtro).CurrentPage.Name
Next TablaDinamica
Salir:
Application.EnableEvents = True
End Sub

este código lo tome de un ejemplo de internet pero lo inserto tal cual y no funciona, cambie "Mes de Producción" por el mio que dice "Fecha" pero no funciono no se cambia en las otras tablas dinámicas me podrían ayudar .

en el archivo de ejemplo si funciona pero como en ese era mes salen los meses (enero etc.) y en el mio salen las fechas (m/dd/aa) y no los cambia no se si se pueda. Disculpen si no me se explicar bien y por la redacccion