关闭后重新打开工作薄，运行代码经常出现报错，显示Excel已停止工作

shenweihuan

Private Sub 信息提取_Click()

  ThisWorkbook.Activate
  
  Dim i As Integer
  Dim HS As Integer
  Dim LS As Integer
  
  For Each XWH In Sheet2.Range("C4:C1000")
  
    If XWH.Text = ComboBox153.Text Then
    HS = XWH.Row
    LS = XWH.Column
    End If
   
  Next
  'MsgBox "行号为" & HS & "-" & "列号为" & LS
  
  '文本框取值
  For i = 1 To 369 Step 1
     窗口.Controls("TextBox" & i).Text = Sheet2.Cells(HS, i + 1)
  Next
  
  '复合框取值
  For i = 1 To 152 Step 1
     窗口.Controls("ComboBox" & i).Text = Sheet2.Cells(HS, i + 370)
  Next
  
  '文本框取值
  For i = 1 To 9 Step 1
     窗口.Controls("TextBox" & i + 399).Text = Sheet2.Cells(HS, i + 522)
  Next
  
  '复合框取值
  For i = 1 To 3 Step 1
     窗口.Controls("ComboBox" & i + 199).Text = Sheet2.Cells(HS, i + 531)
  Next
  
  TextBox410.Text = Sheet2.Cells(HS, 535).Text

End Sub

shenweihuan

只是运行以上代码时才出现报错，其它打开窗口按键运行都正常
就是关闭后再打开工作薄，再点击运行以上程序按键时，经常出现报错
强制关闭后，再打开，就一下子打开两个工作薄，一个命名为Version1