Доброго времени суток, прошу вашей помощи.
Задача следующая: Если AB9 = 0 то нужно скрыт строку, я вроде сделал вот код VBA.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Private Sub Worksheet_Calculate()
On Error Resume Next
Application.ScreenUpdating = False
Dim KeyCells As Range
Set KeyCells = Range("$AB$9")
If Not Application.Intersect(KeyCells, Range("$AB$9")) Is Nothing Then
If KeyCells = 0 Then
Rows("A9:A9").Select
Selection.EntireRow.Hidden = False
End If
End If
Application.ScreenUpdating = True
End Sub
При изменения ячейка т.е. запуск макроса зависает «Прекращена работа программы Microsoft Excel», в чем проблема помогите пожалуйста….
Заранее благодарен за ответ!
