Seeting up repetitive code
 

I want to repeat this code:

ActiveSheet.PivotTables("PivotTable1").PivotFields ("Month").CurrentPage =

in multiple macros...how would I do it? This is my thought thus far but I'm
not sure about the syntax:

Dim repeat As String

repeat =
ActiveSheet.PivotTables("PivotTable1").PivotFields ("Month").CurrentPage = _


If Range("T6").Value = "2"
repeat&"January_2006"
end if

If Range("T6").Value = "3"
repeat&"February_2006"
end if


etc. etc. - any suggestions?

Seeting up repetitive code
 

Maybe something like this?
With ActiveSheet.PivotTables("PivotTable1").PivotFields ("Month")
Select Case Range("T6")
Case 2
.CurrentPage = "January"
Case 3
.CurrentPage = "February"
Case Else
.CurrentPage = "Whatever"
End Select
End With
--
Charles Chickering

"A good example is twice the value of good advice."


"Matt" wrote:

I want to repeat this code:

ActiveSheet.PivotTables("PivotTable1").PivotFields ("Month").CurrentPage =

in multiple macros...how would I do it? This is my thought thus far but I'm
not sure about the syntax:

Dim repeat As String

repeat =
ActiveSheet.PivotTables("PivotTable1").PivotFields ("Month").CurrentPage = _


If Range("T6").Value = "2"
repeat&"January_2006"
end if

If Range("T6").Value = "3"
repeat&"February_2006"
end if


etc. etc. - any suggestions?