在Excel VBA中使用合并的单元格清除命名范围

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

已修复。原来，以前的工作表在其自己的模块下编写了此代码。这次，我试图清除与按钮所在的页面不同的工作表上的命名范围。