宏在Sheets.Move连续崩溃。无法调试

Question

我的宏与大型（10,000行）电子表格配合使用，可以对数据进行排序，删除，粘贴和重新保存。当我进入要创建的新电子表格的“ Sheets.Select”和“ Sheets.Move”时，代码崩溃。

单步执行代码时，宏起作用。如果我在代码开头输入“ Debug.Assert False”命令，该命令框会出现，然后单击“继续”，宏将正确运行到结尾。无法调试，因为逐步操作效果很好。

'Rename OEM List (2)

Dim QuoteNo As String
Sheets("OEM List (2)").Select
Range("B11").Select
QuoteNo = ActiveCell.Value
ActiveSheet.Name = QuoteNo & " - OEM List"

Range("A1").Select

Dim wsA As Worksheet
Dim strName As String
Dim strFile As String
Dim strPathFile As String

Set wsA = ActiveSheet

'Format all rows

Rows("17:8042").Select
Rows("17:8042").EntireRow.AutoFit

'Export with no copy newly named "Quote *"

'MACRO EITHER CRAHSHES HERE

Sheets(QuoteNo & " - OEM List").Select

'OR HERE

Sheets(QuoteNo & " - OEM List").Move

'OR HERE

该宏应该用于接收新创建并命名的电子表格，将其移动到新工作簿，使用保存的名称保存该工作簿，关闭该新工作簿，重新保存原始工作簿并结束。

单步执行代码时，宏起作用。如果我输入“ Debug.Assert False”命令并运行宏，则当代码到达.Select或.Move行时，将出现命令框，单击“继续”，宏将正确运行到最后。无法调试，因为逐步操作效果很好。

'Rename OEM List (2)

Dim QuoteNo As String
Sheets("OEM List (2)").Select
Range("B11").Select
QuoteNo = ActiveCell.Value
ActiveSheet.Name = QuoteNo & " - OEM List"

Range("A1").Select

Rows("17:8042").Select
Rows("17:8042").EntireRow.AutoFit

Dim wsA As Worksheet
Dim strName As String
Dim strFile As String
Dim strPathFile As String

Set wsA = ActiveSheet

'Export with no copy newly named "Quote *"

'THE MACRO EITHER CRASHES HERE,

Sheets(QuoteNo & " - OEM List").Select

'OR HERE

Sheets(QuoteNo & " - OEM List").Move

该宏应该用于接收新创建并命名的电子表格，将其移动到新工作簿，使用保存的名称保存该工作簿，关闭该新工作簿，重新保存原始工作簿并结束。