Excel VBA - 复制形状代码并不总是有效

Question

我有一个excel工作簿，其中包含一些作为按钮的形状。在这些形状上有一个分配给它的宏，可以做几件事。它创建了一个新工作表，并使用这个新工作表执行了一些操作。它所做的一件事是复制几个不同的形状，这些形状被超链接到工作簿中的其他工作表。代码有效，但并非总是如此。出于某种原因，有时它不会复制任何形状或只复制一个形状。它适用于两种形状，大约80％的时间。以下是从其他工作表复制形状的代码部分。任何人都可以解释为什么它并不总是有用吗？

' Copy Index linked button from Calculator sheet
Sheets("Calculator").Shapes("Rounded Rectangle 3").Copy
Range("L3").Select
ActiveSheet.Paste

' Copy Calculator linked button from Index sheet
Sheets("Index").Shapes("Rounded Rectangle 1").Copy
Range("J3").Select
ActiveSheet.Paste