Всем приветы!
Вот и настал тот день и час, когда нужно самой написать макрос... раньше все не приходилось. Хочу ставить и убирать галочки в сводной таблице. Убирать получается, а ставить - нет. Почему так?
Sub Макрос14()
Dim sht As Worksheet
For Each sht In ThisWorkbook.Worksheets
If sht.Name = "Лист1" Then
sht.PivotTables(1).PivotFields("DATEON").PivotItems.Item("10/02/2004").Visible = False 'Это РАБОТАЕТ
sht.PivotTables(1).PivotFields("DATEON").PivotItems.Item("11/02/2004").Visible = True 'Здесь идет ругань - Нельза установить свойство Visible класса PivotItem
End If

Next sht
End Sub

как с этим бороться???? Помогите пожалуйста!!!!

Урра! Зарработала!!! :-)))
Большущее спасибо!!!