下标超出范围错误尝试复制按钮时出现错误

Question

当工作表被命名为"Sheet1"时，我的代码工作正常，但是当我将工作表名称从"Sheet1"更改为"Custom"时，此代码出现错误：

Set oldButton = Sheets("Custom").OLEObjects(ButtonName) // Error here: subscript out of range Error

但是它正在与：

Set oldButton = Sheets("Sheet1").OLEObjects(ButtonName)

很奇怪，但是我不确定为什么在重命名工作表时它不起作用

Answer 1

我怀疑您已经使用(name)属性重命名了工作表，该属性引用了工作表的代码名称。

例如：

Sheets("Custom").OLEObjects(ButtonName)是指将工作表名称属性更改为“自定义”的工作表。

Custom.OLEObjects(ButtonName)是指一个工作表，该工作表的代码名称属性已更改为“自定义”

您可以在以下文档中阅读有关这两个属性的更多信息：

1. Codename Property
2. Name Property