title: Automation Error - Catastrophic Failure EXCEL VBA
body: <p>I have a workbook which is throwing this error on opening. When it does and I open the VBA module, the current line is the definition of a sub. But the only option is to kill the whole Excel process.</p>
  
  <p>I've got custom document properties, I've got embedded combo-box controls, I have no clue what it might be, and Excel isn't helping.</p>
  
  <p>However, when I open the same file on another computer - it doesn't throw the error.</p>
  
  <p>Does anyone have any experience or advice with this kind of error?</p>
  
  <p>Here's the Open code, but the 'Show Next Statement' command doesn't point here when the error occurs:</p>
  
  <p>````</p>
  
  <pre><code>Private Sub Workbook_Open()
      Dim ans
  
  
      If Range("currentstatus") Like "*Ready for Year-End Preparation*" Then
          ans = MsgBox("This workbook is ready for Year-End Preparation" &amp; vbCrLf &amp; "Would you like to begin?", vbYesNo)
  
          If ans = vbYes Then
              Range("Phase") = "Year-End"
              SheetsSet 3
          End If
      End If
  
      'Exit Sub
  
      If Range("Phase") = "Commissions" Then
  
          If Range("currentstatus") Like "*RVP/Dept Head Approved*" Then
              ans = MsgBox("Commissions have been approved for " &amp; Range("applicablemonth") &amp; vbCrLf &amp; "Would you like to enter data for the new period?", vbYesNo + vbQuestion)
              If ans = vbYes Then
  
  
                  Range("ApplicableMonth") = Format(DateAdd("m", 1, CVDate(Range("applicablemonth"))), "YYYY-MM")
                  Range("CurrentStatus") = "Ready for Data Entry for " &amp; Range("ApplicableMonth")
  
                  ' now reset the summary page
                  Prot False, "Commission Form Summary"
                  Range("SalesPersonComplete") = Range("Summary")
                  Range("RVPComplete") = ""
                  Range("BrMgrComplete") = ""
                  Prot True, "Commission Form Summary"
  
                  Sheets("Menu").Select
                  '                MsgBox "Begin."
              End If
          End If
  
  
      End If
  
  End Sub
  </code></pre>