Macro filtrar tabla dinámica por fecha (campo) de una tabla de OLAP

Buenos dias,

Estoy intentando ligar varias tablas dinámicas que están conectadas a una tabla OLAP por medio de un solo campo, dicho 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:

Gracias de antemano su apoyo.

Saludos,

Héctor A.