Ошибка Out of stack space и др

[Solex]

При работе макроса вылазят ошибки - возникает рекурсия
Макрос находится на Листе 2 - работает при изменении ячеек:
При изменении значений в оранжевых полях и расширяет высоты строк для голубых ячеек (только для длинных)
Подскажите как можно исправить
и облегчить код, а то сильно грузит комп

[Teslenko_EA]

Здравствуйте Solex.
"как можно исправить..и облегчить.." :
1. в начале выполнения процедуры выключить (False), в конце включить (True) обновление экрана Application.ScreenUpdating = ...
2. вынести в отдельную процедуру однотипный код.
3. организовать выполнение только при условии соответствия адреса, с одной проверкой
примерно так:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
With Target
If .Column = 2 Then 
    Select Case .Row
    Case 14, 38, 41, 43, 47
        heightRow Range(Cells(.Row, .Column))
    ...
    End Select
ElseIf .Column = 8 Then
     ...
...
End If
End With
Application.ScreenUpdating = True
End Sub
Sub heightRow(oRng As Range) ' не совсем понятно назначение?
Const H = 16.5
Dim i%
    i = (Len(oRng.Text) / 68) + 1
    oRng.RowHeight = i * H
End Sub

Евгений.

[Solex]

Спасибо как раз то что нужно!)

[Solex]

Сообщение от Teslenko_EA

Здравствуйте Solex.

...

Sub heightRow(oRng As Range) ' не совсем понятно назначение?

Назначение этой части кода для подбора высототы строки, просто не знаю как по-другому