循环通过数据透视表

Question

这可能是一个非常简单的问题，但我试图使用VBA循环遍历PivotField上的项目。我写了：

Dim PT As PivotTable
Set PT = ActiveSheet.PivotTables(1)
Dim Country As Variant

For Each Country In PT.PivotFields("Country")

'Code inserted here

Next Country

但是我遇到了运行时错误438.我想在PivotField中遍历每个国家（阿尔巴尼亚，比利时，加拿大等）并运行与该国家相关的数据的宏。我怎么能这样做？