Loop though pivots

[pedie]

Hi I need help with vba to loop though pivot tables;

i tried something like

[/FONT]
[FONT=Courier New][/FONT] 
[FONT=Courier New]dim pvt as object[/FONT]
[FONT=Courier New]for each pvt in activesheet.pivotables[/FONT]
[FONT=Courier New][/FONT] 
[FONT=Courier New]

but wont work....please suggest!
Thanks in advance

 

[GlennUK]

It works fine for me ( I have pivottables in the activesheet ).

Explain what you mean by "wont work" ... in what way? Does it crash with an error message? Does it not do what you expect?

 

[pedie]

It works fine for me ( I have pivottables in the activesheet ).

Explain what you mean by "wont work" ... in what way? Does it crash with an error message? Does it not do what you expect?

Glenn, i tried this way and it erros
runtime error 438;
object doesnt support this property or method;

[/FONT]
[FONT=Courier New]Option Explicit[/FONT]
[FONT=Courier New]Sub Try()
Dim pvt As Object
Sheet1.Activate
For Each pvt In ActiveSheet.pivotables
 MsgBox pvt.Name
Next pvt
End Sub