Macro para actualizar varias tablas dinámicas

Buenos Noches para todos los compañeros estuve realizando una macro para actualizar 8 tablas dinámicas y al momento de ejecutar la macro me genera un error " Se ha Producido el Error 1004 en tiempo de ejecucion" y me sale error definido por la aplica

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Address <> "$b$5" Then Exit Sub

Application.ScreenUpdating = False

'Actualiza las tablas

ActiveSheet.PivotTables("TD1").PivotCache.Refresh

'Actualiza el año de todas las tablas

dia = Hoja3.Range("B5")

ActiveSheet.PivotTables("TD1").PivotFields("Dia").CurrentPage = _

dia

ActiveSheet.PivotTables("TD2").PivotFields("Dia").CurrentPage = _

dia

ActiveSheet.PivotTables("TD3").PivotFields("Dia").CurrentPage = _

dia

Application.ScreenUpdating = True

End Subcion o el objeto

necesito saber por que me genera un error y colaborarme con el archivo que tengo ya que es mi importante y de igual forma fortalecer mis conocimientos

muchas gracias y espero de todos mis compañeros del foro una exitosa respuesta por parte de ustdes

cualquier cosa comparto mi archivo pero pega un tris muchas gracias

mi [email protected]