title: Excel VBA Run-time Error '32809' - Trying to Understand it
body: <p>A colleague at work made some changes to one of our macro workbooks and now on my PC only I receive the dreaded Run-time Error '32809' when I attempt to run it. This latest version runs fine on his PC and another colleague's PC that we tested it on. The previous version runs fine on all of our PC's, all of which are running Excel 2010.</p>
  
  <p>The error is thrown when the macro attempts to Select the Worksheet index 1, named "Info". I know that Select/Activate is not required but am just working with this Workbook for now and am trying to work out why I alone would receive this error.</p>
  
  <p>I have tried:</p>
  
  <ol>
  <li>Reboot/Power Cycle</li>
  <li>Saving a Copy of the Workbook</li>
  <li>Cleaning out Temp Files with CCleaner</li>
  <li>Researching online</li>
  <li>Checking for ActiveX Controls (Uses Form Controls)</li>
  </ol>
  
  <p>All with no success. I then had a bit of a mess around in the immediate window and discovered that even a simple:</p>
  
  <pre><code>Debug.Print ThisWorkbook.Worksheets(1).Name
  </code></pre>
  
  <p>would throw the run-time error which lead me to believe that somehow that Worksheet had broke. I added a couple of events to the Worksheet including _Activate and _Change but none would fire even after confirming that:</p>
  
  <pre><code>Application.EnableEvents = True
  </code></pre>
  
  <p>I added a simple Test Sub as follows:</p>
  
  <pre><code>Public Sub Test()
  
      Dim ws As Worksheet
      Dim sheetNum As Integer
  
      For Each ws In ThisWorkbook.Worksheets
          ws.Select           ' Selects all Sheets Without Error
          Debug.Print ws.Name ' Prints All Worksheet Names Fine
      Next ws
  
      Set ws = ThisWorkbook.Worksheets(1)
      ws.Select               ' Selects Sheet 1 Without Error
  
      ' Prints all but sheetNum = 1, Run-time Error 32809
      For sheetNum = 7 To 1 Step -1
          Debug.Print ThisWorkbook.Worksheets(sheetNum).Name
      Next sheetNum
  
      ' Run-time Error 32809
      ThisWorkbook.Worksheets(1).Select
  
  End Sub
  </code></pre>
  
  <p>Has anyone run into anything similar to this or know of what causes this error to occur only on some PC's?</p>