Cambiar filtros de cubo OLAP desde Macro

Buenas!
Les cuento... Llevo unos 2 dias buscando informacion sobre lo que necesito hacer. Lo encontre para bases de Datos SQL, pero con cubos no me funciona lo mismo, y he tratado de buscar el equivalente, pero no pasa nada. He visto si que algunas funciones son para SQL y otras para cubos.
Debo hacer una actualizacion de unas Tablas Dinamicas, dependiendo de una fecha ingresada por el usuario, esto para tablas dinamicas de Cubos OLAP. El cubo es de SQL Analysis Services.

Lo que necesito, seria como esto, que esta hecho para una BD SQL.
Vee los valores del campo fecha, que esta en la Tabla Dinamica, y los pone en la columna A para abajo, a la derecha (Columna B), ubique Visible (True o False)


Sub Runn()
Dim PT As PivotField
Dim key As Object
Dim i As Integer
i = 2
For Each key In ActiveSheet.PivotTables("TD").PivotFields("fecha") .HiddenItems
Range("A" & i).Value = key
i = 1 + i
Range("B" & i - 1).Value = ActiveSheet.PivotTables("TD").PivotFields("fecha") .PivotItems(i - 2).Visible
Next key
End Sub

Y cambiar el valor de un filtro como acá


'ActiveSheet.PivotTables("TD").PivotFields("CampoF iltro").PivotItems("ValorDeseado").Visible = True

Si me dijeran como hacer eso para un Cubo OLAP, seria genial.
El resto lo puedo resolver yo.

De antemano, muchas gracias!