Выподает окно с "Run-time '28'

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Выподает окно с "Run-time '28' (Макросы/Sub)

DenchikZ

Дата: Вторник, 05.11.2024, 07:37 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 35

Репутация: 0 ±

Замечаний: 0% ±

2020

Раньше все хорошо работало но сейчас стало выпадать "Run-time error '28' out of stack space" , с кодом вроде все в порядке в чем причина не могу понять кто сталкивался как решить?
[vba]

Код

Option Explicit

Private Sub Worksheet_Calculate()
If Range("F10").Value = "К42" Then
Rows("30:31").EntireRow.Hidden = False
Rows("32:35").EntireRow.Hidden = True
ElseIf Range("F10").Value = "К48" Then
Rows("32:35").EntireRow.Hidden = True
Rows("30:31").EntireRow.Hidden = False
ElseIf Range("F10").Value = "К52" Then
Rows("30:35").EntireRow.Hidden = False
ElseIf Range("F10").Value = "К50" Then
Rows("20:35").EntireRow.Hidden = False
ElseIf Range("F10").Value = "К60" Then
Rows("32:35").EntireRow.Hidden = False
Rows("30:31").EntireRow.Hidden = True
End If
End Sub

[/vba]