Очистка именованного диапазона объединенными ячейками

Question

У меня есть два объекта кнопки на старом листе, которые прекрасно работали годами. Цель состоит в том, чтобы иметь два именованных диапазона и очистить их с помощью двух отдельных кнопок. В обоих диапазонах объединены ячейки.

Мне кажется, что Button3 не работает на новом листе.

Button1 работает просто отлично:

Sub Button1_Click()

'Loop through Named Range, clearing contents
For Each m_cell In Range("Clear1stList")
    m_cell.MergeArea.ClearContents
    Next

End Sub

Код Button3 почти идентичен, но не работает вообще. Он всегда заканчивается ошибкой 400.

Sub Button3_Click()

'Loop through Named Range, clearing contents
For Each m_cell In Range("ClearDailyLog")
    m_cell.MergeArea.ClearContents
    Next

End Sub

Button3 всегда прерывается на m_cell.MergeArea.ClearContents
Я удалил весь именованный диапазон «ClearDailyLog» и снова установил его, но безрезультатно.
Есть идеи?

Answer 1

Fixed. Оказывается, на предыдущем листе этот код был написан под собственным модулем. На этот раз я пытался очистить именованные диапазоны на листе, отличном от того, на котором были кнопки.