下面的vba代码行不能用于删除excel工作簿中不能在excel 365中工作的工作表

Question

我使用下面的vba代码行：

Sub abc()
Dim wb As Workbook
Set wb = Workbooks("Book1.xlsx")
wb.Sheets("sheet1").Activate
On Error Resume Next
wb.Sheets("Sheet2").Delete
wb.Sheets("Sheet3").Delete

End Sub

为了使用这个代码，我有1个空白excel文件（Book1.xlsx）和2张（sheet1和sheet2），当我在excel 2013中运行此代码时它工作正常但是当我在excel 365中使用相同的代码时，它的抛出错误消息（运行时错误9：下标超出范围）。任何人都可以告诉我为什么这个代码不在excel 365中运行虽然它正在excel 2013上运行。