Подгонка макроса в Excel

[klip]

Есть следующая проблемка:
макрос создаёт сводную таблицу и выполняет фильтрацию по признаку "Pohjustaja", где надо снять все галки и оставить только один параметр (в макросе он никак не прописывается сейчас "KK - kojukanne").


ActiveSheet.PivotTables("PivotTable 2").PivotFields("Pхhjustaja").Curre ntPage = _
"(All)"
With ActiveSheet.PivotTables("PivotTable 2").PivotFields("Pхhjustaja")
.PivotItems("AT - ANDMETЦЦTLUS").Visible = False
.PivotItems("EKSP - EKSPEDEERIMINE").Visible = False
.PivotItems("KL - KLIENT").Visible = False
.PivotItems("KT - KLIENDITEENINDUS").Visible = False
.PivotItems("MUU - MДДRATLEMATA").Visible = False
.PivotItems("TE - TEHNILINE").Visible = False
.PivotItems("TKODA - TRЬKIKODA").Visible = False
.PivotItems("TOIM - TOIMETUS").Visible = False
.PivotItems("TRA - TRANSPORT").Visible = False
.PivotItems("V - VДLJASTUS").Visible = False

Проблема возникает тогда, когда в исходной наблице один из параметров отсутствует:
AT - ANDMETÖÖTLUS
EKSP - EKSPEDEERIMINE
KL - KLIENT
MUU - MÄÄRATLEMATA
TE - TEHNILINE
TKODA - TRÜKIKODA
TOIM - TOIMETUS
TRA - TRANSPORT
V - VÄLJASTUS

Тогда макрос выкидывает ошибку и всё приходится доделывать в ручную
Поможете?

[alebed]

Получаем список доступных полей таблици и к примеру сохраняем его в яч. колонки А. см. ниже

For SpysPol = 1 To ActiveSheet.PivotTables("PivotTable 2").PivotFields.Count
Range("A" & Trim(Str(SpysPol))).Value = ActiveSheet.PivotTables("PivotTable 2").PivotFields(SpysPol).Name
Next SpysPol

И на базе полученного списка работать с
.PivotItems(данные из кол А).Visible = False

[klip]

...если ты "новичок", то кто тогда я