Программное отключение функции

[Светлана87]

Добрый день!
В моей книге есть пользовательская функция:
Function HasFormula(C As Range) As Boolean
HasFormula = C.HasFormula
End Function
Из-за данной функции неверно выполняется макрос.
Можно ли на время выполнения макроса отключить эту функцию?
Спасибо.

[Hugo121]

Замените название функции на другое - может и заработает всё.
Например:

Function HasMyRangeFormula(C As Range) As Boolean
HasMyRangeFormula = C.HasFormula
End Function

[Светлана87]

Заменила. Не работает
А вот если в редакторе функцию закомментировать - все нормально

[Hugo121]

Непонятно.
Как связан макрос с этой функцией?

[Светлана87]

Он никак не связан вроде. Функция мне нужна для условного форматирования, а макрос
для удаления данных на нескольких листах синхронно, начиная с выделенной ячейки.
Вот такой макрос Public Sub ааа()
Dim sh As Excel.Worksheet
Dim Строка As Long, Столбец As Long
Application.ScreenUpdating = False
Строка = ActiveCell.Row
Столбец = ActiveCell.Column
For Each sh In Sheets(Array("Лист1", "Лист2", "Лист3"))
sh.Range(sh.Cells(Строка, Столбец), sh.Cells(Строка + 300, Столбец)).Delete Shift:=xlToLeft
Next
Application.ScreenUpdating = True

End Sub
Вместе они почему-то не работают Все уже перепробовала...

[Hugo121]

Не знаю.
Можете файл приложить - интересно глянуть на такую ситуацию.

[Watcher_1]

А из какой части кода у вас вызывается эта функция HasFormula?

[Hugo121]

Мне кажется, что она на листе. И при удалении строк удаляется контролируемый диапазон, что вызывает ошибку в функции, что вызывает ошибку в УФ.
Но нужно видеть файл.

[Светлана87]

Я файл могу только вечером. У нас закрытое предприятие - пересылка запрещена. И макрос и формула в Modules

[Светлана87]

Ошибка при выполнении макроса не выскакивает, просто данные удаляются только с первого листа, а когда функция закомментирована, то со всех