pls, help

Хочу узнать колличество всех листов в сводной таблице по столбцу.
Worksheets("DbGetData").PivotTables("PivotTable1").PivotFields("111").CurrentPage.Count

Ошибка вида: Subscript out of range

И подскажите, как потом просто перебрать все листы? По порядку?

Сделала по Хелпу
Set pvtTable = Worksheets("DbGetData").Range("A1").PivotTables("PivotTable1")
strPgName = pvtTable.PivotFields("111").CurrentPage.Name

Ругается так же.