Vba Office 2013 sheet.copy不起任何作用

我在Office 2010中正确运行了以下代码，但在Office 2013中没有。在Excel 2010中执行时没有错误，在Excel 2013中执行时也没有错误，但在Excel 2013中它什么也不做

Dim strDocument As Variant
strDocument = Application.GetOpenFilename("Microsoft All Excel Files,*.xls*,All Files,*.*", 1, "Open File", , False)
If strDocument = False Then
    ActiveWindow.WindowState = xlMaximized
    Exit Sub
End If
Workbooks.Open Filename:=strDocument

ActiveWindow.WindowState = xlMinimized

Sheets(Array("Mobile", "Fisso")).Select
Sheets("Fisso").Activate
Sheets(Array("Mobile", "Fisso")).Copy Before:=Workbooks(toolName).Sheets(1)
Sheets("Mobile (2)").Select
Sheets("Mobile (2)").name = "Mobile AS IS"
Call CreatePrimaryKey("Mobile AS IS")
Range("A1").Select
On Error Resume Next
ActiveSheet.ShowAllData
On Error GoTo 0

Office 2013的问题在于它没有复制任何内容，没有错误。我希望它能将两张Fisso和Mobile工作表从活动工作簿复制到我的toolName工作簿

---

关于这一点是否有任何已知问题？

了解。office 2013无法最小化工作簿并同时保持excel窗口处于打开状态。这仅在office 2010中是可能的

我正在使用2013，这段代码对我来说很好。它复制工作表，然后将其移动到另一个工作簿

Sub CopySheet()
Sheets("Test").Select
Sheets("Test").Copy Before:=Workbooks("Book2").Sheets(1)
End Sub

---

你有错误吗？toolName变量标注在哪里，它是指向正确的工作簿还是活动工作簿？在此代码段之前是否有On Error语句？如果是，是否确定Excel 2013中的重复工作表命名为“名称2”，而不是没有空格的“名称2”？如果没有，请告诉我们您在哪一行得到错误。但在任何情况下，如果存在此On错误语句，请暂时对其进行注释并告诉我们错误，这方面不存在任何兼容性问题。toolName在哪里声明和分配？我能看到的最接近的东西是标准文档。