Apply code in all pivot tables in the same worksheet

[bhenlee]

Hi Experts,

i found this code but I could not modify it so it would work on two pivot tables on the same sheet:

Set TargetDate = Range("A1")
Dim PI As PivotItem


For Each PI In ActiveSheet.PivotTables("PivotTable1").PivotFields("Target Due Date").PivotItems
If DateValue(PI.Name) < TargetDate Or DateValue(PI.Name) = TargetDate Then
PI.Visible = True
Else
PI.Visible = False
End If
Next PI

How do I get a code to work on at least two pivot tables on the same sheet?

I apologize if i do not know how to use code tags.

Thank you

[dflak]

You're missing a thing or two. There are two ways to point to a lot of things in VB. One is by what I like to call "array" like Sheet(1) or Sheet("SheetName"). Normally you address these items like:

Please Login or Register  to view this content.

The other is by pointer or "object" which is what I will use here. These are addressed using For Each

Please Login or Register  to view this content.

This should work for your purposes.

Please Login or Register  to view this content.

[MarvinP]

Hi,

Try changing

Please Login or Register  to view this content.

to

Please Login or Register  to view this content.