title: Select default value of ComboBox when form is initialized
body: <p>I have a ComboBox that populates values from a sheet. I am trying to select the first or second value in the combobox by default when the form initialize. Can anyone help me with how should I do this?</p>
  <pre><code>Sub Reset()
      Dim iRow As Long
      
      iRow = [Counta(Database!A:A)] ' idetifying the last row
      
      With frmForm
          .txtID.Value = &quot;&quot;
          .txtVName.Value = &quot;&quot;
          .optMale.Value = False
          .optFemale.Value = False
          
          'Default Color
          .txtID.BackColor = vbWhite
          .txtVName.BackColor = vbWhite
          .txtTimeIn.BackColor = vbWhite
          .txtPName.BackColor = vbWhite
          .cmbNationality.BackColor = vbWhite
          .cmbDept.BackColor = vbWhite
          '--------------------------------
      
          'Creating a dynamic name for Department
                    
          shDept.Range(&quot;A2&quot;, shDept.Range(&quot;A&quot; &amp; Application.Rows.Count).End(xlUp)).Name = &quot;DynamicDept&quot;
          .cmbDept.RowSource = &quot;DynamicDept&quot;
          .cmbDept.Value = &quot;&quot;
      End With
  End Sub
  </code></pre>