Я новичок в VBA Excel-е, но хочу разобраться.
Создал UserForm c ComboBox-ом.
Написал для него код.
Хотел, чтобы если выбирается из списка в ComboBox-е "Добавить новый", через InputBox добавить новый элемент в список.
Столкнулся с проблемой, что после выполнения строки "Sheets("Списки_постоянные").Cells(CледПустаяСтрока, 1) = region" начинается выполнение заново по второму кругу без выполнения строки "MsgBox region". На втором круге проходит полностью.
Прошу подсказать почему опять уходит в начало процедуры.

Всем заранее спасибо.

Код:
Private Sub cb_регион_Change()
Dim region As String
   Dim СледПустаяСтрока As Long
   Dim wf As WorksheetFunction
   Dim a As Long
   
   Set wf = Application.WorksheetFunction
   
   
   If cb_регион.Text = "Добавить новый" Then
           region = InputBox("Укажите название нового региона", "Регион")
           CледПустаяСтрока = wf.CountA(Лист4.Range("A:A")) + 1
           Sheets("Списки_постоянные").Cells(CледПустаяСтрока, 1) = region
           MsgBox region
   End If
   
   
End Sub