Есть кусок часто повторяющегося кода, переход на конкретный лист и проверка текущего значения на заполненность с запросом на перезапись, хочу вынести его в функцию:
но если делаю вот так:
то вылазит ошибка, что нельзя использовать Exit Sub в функции
Как это можно обойти?
Код |
---|
Sheets("Лист1").Select If ActiveCell.Value = "" Then Else RunMacro = MsgBox("Заменить?", 4, "") If RunMacro <> 6 Then Exit Sub End If End If |
но если делаю вот так:
Код |
---|
Private Sub .... ... pusto ... End Sub Function pusto() Sheets("Лист1").Select If ActiveCell.Value = "" Then Else RunMacro = MsgBox("Заменить?", 4, "") If RunMacro <> 6 Then Exit Sub End If End If End Function |
то вылазит ошибка, что нельзя использовать Exit Sub в функции
Как это можно обойти?