title: Run Time Error 13: Type Mismatch on combo Box - Excel VBA
body: <p><strong>Introduction</strong>:
  I have prior experience in programming (C, C++, Java), however, this is my first time using Excel VBA. </p>
  
  <p><strong>Some background</strong>:
  I am trying to initialize a combo box with a list from a sheet called <code>ORI_LIST</code> but every time I run it I get <code>Run Time Error 13</code>. Any information on this would be great.</p>
  
  <pre><code>Private Sub UserForm_Initialize()
      Dim cLoc As Range
      Dim OriSheetList As Worksheets
  
      Set OriSheetList = Worksheets("ORI_LIST")
  
      For Each cLoc In OriSheetList.Range("CRI")
          With Me.COMBO_ORILIST
              .AddItem cLoc.Value
          End With
      Next cLoc
  End Sub
  </code></pre>