Pivot Table automatically refresh when opening tab

[sm3117]

Good morning,

Any idea why this code keeps giving me an error??

Private Sub Worksheet_Activate()
Sheets("PT Obj. e Ind.").PivotTables("PT_Obj_e_Ind").RefreshTable
End Sub

Thanks!!

 

[Rorylfc]

I could be wrong, but try

Sheets("PT Obj. e Ind.").PivotTables("PT_Obj_e_Ind").PivotCache.Refresh

 

[RoryA]

What's the error?

 

[sm3117]

What's the error?

Error 1004, the message is in another language so, sth similar to: The property PivotTables can not be obtained from the worksheet cathegory

 

[RoryA]

That would suggest that the pivot table name in the code doesn't match the name of the actual pivot.

 

[sm3117]

That would suggest that the pivot table name in the code doesn't match the name of the actual pivot.

I have copy and pasted the name in the code, so the name is the same..

 

[RoryA]

The only way to get that message is if the named pivot table is not on the specified sheet. So there has to be a mismatch somewhere.

 

[wesimmo]

Have you tried recording the Refresh button and seeing how it refers to the pivot table?

 

[sm3117]

The only way to get that message is if the named pivot table is not on the specified sheet. So there has to be a mismatch somewhere.

OK, the problem was that I had given the range a name and I thought it was the pivot table's name, but it wasn't,

Thank you!

 

[sm3117]

Have you tried recording the Refresh button and seeing how it refers to the pivot table?

The problem was that I had given the range a name and I thought it was the pivot table's name, but it wasn't. So, your advice would have helped,
thanks!