Vincular tablas dinámicas con filtros de varios elementos

Hola,

Antes de nada saludar a todos los usuarios.

Acabo de vincular varias tablas dinámicas a un mismo filtro de informe con el código que vi en este foro y funciona perfectamente, el problema viene al seleccionar varios elementos dentro del filtro, si marco la opción "seleccionar varios elementos" deja de funcionar.

Me podríais ayudar con el código para poder hacer filtros de varios elementos, por ejemplo si tengo el campo trimestres que pueda seleccionar T1, T2 y T3.

Este es mi código:

Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)

Dim TablaDinamica As PivotTable

Const Filtro1 As String = "Trimestre"

Application.EnableEvents = False

On Error Resume Next

For Each Sh In Sheets(Array("Agentes Evolución Anual Ventas", "Abc Provincias", "Abc Lámparas"))

For Each TablaDinamica In Sh.PivotTables

TablaDinamica.PivotFields(Filtro1).CurrentPage = Target.PivotFields(Filtro1).CurrentPage.Name

Next TablaDinamica

Next Sh

Application.EnableEvents = True

End Sub

Un saludo y Muchas gracias!!!