Macro filtrar tabla dinámica por un campo de OLAP

Buenas tardes,

Quiero ligar varias tablas dinámicas que están conectadas a un OLAP a un solo filtro, el campo que estoy utilizando como filtro es "Meses" y quiero que cuando escriba "Junio 2014" en la celda F2, todos los filtros se actualicen a esa fecha; sin embargo no lo he podido lograr. El código que tengo es el siguiente:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("F2")) Is Nothing Then

Dim hoja As Worksheet
Dim td As PivotTable
'Recorrer todas las hojas del libro
For Each hoja In ThisWorkbook.Worksheets
'Recorrer las tablas dinámicas de la hoja
For Each td In hoja.PivotTables
'En base al campo Region de la tabla dinámica:
With td.PivotFields("Meses")
'Limpiar todos los filtros
.ClearAllFilters
'Filtrar por el valor de la celda F1
On Error Resume Next
.CurrentPage = Range("F2").Value
End With
Next td
Next
End If

End Sub

La conexión del olap esta asi:

¿Alguien puede orientarme al respecto por favor?

Saludos,

Añade tu respuesta

Haz clic para o