Hi:
How can I enumerate all he pivot tables in a work book using the dom/vb
code?
Cheers
Sean.

Hi Sean,

Below is the vba code that you can use to walk through each PT in a workbook.

Sub enumeratePT()
Dim ws As Worksheet
Dim pt As PivotTable
For Each ws In ThisWorkbook.Worksheets
If ws.Visible = xlSheetVisible Then
ws.Select
For Each pt In ws.PivotTables
Debug.Print pt.Name
' pt.PageFields("COLUMN1").DataRange = "VALID VALUE IN COLUMN1"
' pt.PageFields("COLUMN2").DataRange = "VALID VALUE IN COLUMN2"
Next pt
End If
Next
End Sub

Hong Quach

"Sean Farrow" wrote:

> Hi:
> How can I enumerate all he pivot tables in a work book using the dom/vb
> code?
> Cheers
> Sean.
>
>
>

Hi:
Just what I needed.
Sean.
"Hong Quach" <(E-Mail Removed)> wrote in message
news:B98BF97B-FF52-42BB-9BFA-(E-Mail Removed)...
> Hi Sean,
>
> Below is the vba code that you can use to walk through each PT in a
> workbook.
>
> Sub enumeratePT()
> Dim ws As Worksheet
> Dim pt As PivotTable
> For Each ws In ThisWorkbook.Worksheets
> If ws.Visible = xlSheetVisible Then
> ws.Select
> For Each pt In ws.PivotTables
> Debug.Print pt.Name
> ' pt.PageFields("COLUMN1").DataRange = "VALID VALUE IN
> COLUMN1"
> ' pt.PageFields("COLUMN2").DataRange = "VALID VALUE IN
> COLUMN2"
> Next pt
> End If
> Next
> End Sub
>
> Hong Quach
>
> "Sean Farrow" wrote:
>
>> Hi:
>> How can I enumerate all he pivot tables in a work book using the dom/vb
>> code?
>> Cheers
>> Sean.
>>
>>
>>