Excel - Tabla Dinámica PowerPivot

Buen día

Tengo una tabla dinámica que la consulto desde la BD por medio del PowerPivot, necesito filtrar esta tabla de acuerdo al valor de una celda ya me hace el filtro de acuerdo al valor que yo le ponga fijo, pero quiero asignarle una variable para que se filtre de acuerdo al valor de una celda cuando hago esta asignación me marca error.

Mi código es el siguiente.

Sub SelAnoRam()

Dim ano As String
ano = ActiveSheet.Range("I7").Value

ActiveSheet.PivotTables("VtasCuotaAno").PivotFields( _
"[Gtactica TVentas].[AnoRam].[AnoRam]").VisibleItemsList = _
Array("")

ActiveSheet.PivotTables("VtasCuotaAno").PivotFields( _
"[Gtactica TVentas].[AnoRam].[AnoRam]").VisibleItemsList = _
Array("[Hermos S_A_ de C_V_Temporal Ventas].[AnoRam].&[2014]")

End Sub

Me pueden ayudar?
Saludos..