VBA to change Pivot Filter in OLAP cube to a range

Question

I have a pivot table that pulls data from an OLAP cube, and I\'d like to create a macro to filter a pivot field that contains \'Week of Year\' based on the value in another

Answer 1

It should be something like this:

Dim aWeeks()
Dim n                     As Long
Dim x                     As Long

n = Range("A1").Value

ReDim aWeeks(n - 1)
For x = 1 To n
    aWeeks(x - 1) = "[Time].[Week of Year].&[" & x & "]"
Next x
ActiveSheet.PivotTables("PivotTable3").PivotFields( _
        "[Time].[Week of Year].[Week of Year]").VisibleItemsList = aWeeks