循环通过数据透视表

这可能是一个相当简单的问题，但我正在使用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并运行一个与该国相关数据的macros。 我怎么能这样做？