重复的工作表，未在工作表上附加应对代码

Question

我对您建议删除代码的代码有疑问。我想删除重复工作表“概述10年（2）”中Excel对象上激活的所有代码，以便我可以继续操作而不会运行并干扰其他代码。我的操作过程中是否缺少任何东西？

Sheets(Array("Overview 10 years", "Overview monthly")).Select
Sheets("Overview 10 years").Activate
Sheets(Array("Overview 10 years", "Overview monthly")).Copy Before:=Sheets(1 _
    )
Sheets("Overview 10 years (2)").Activate
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

' Get the code/object name of the new sheet...
Dim StrObjectName As String
StrObjectName = Sheets("Overview 10 years (2)").CodeName

' Remove all lines from its code module...
With ThisWorkbook.VBProject.VBComponents(StrObjectName).CodeModule
.DeleteLines 1, .CountOfLines
End With

我需要删除1-15行，以使其不再干扰其他代码。