title: Populate UserForm Combo Boxes with default values
body: <p>TierStructureTierStructureI am trying to populate two comb boxes on a userform w/ VBA and set a default value for the same boxes based on a ws function. I think I can figure out the ws function, but I'm having a little trouble with arrays and the default values.</p>
  
  <pre><code>Private Sub UserForm_Initialize()
  
  Dim TierStructure() As Variant
  
  TierSturucture = Array("Composite", "2-Tier", "3-Tier", "4-Tier", "5-Tier", "6-Tier")
  
  StopLossCombo.List = TierSturucture 
  AdminCombo.List = TierSturucture 
  StopLossCombo.Value = TierStructure(1)
  AdminCombo.Value = TierStructure(1)
  
  End Sub
  </code></pre>
  
  <p>The error I receive is "run time error 9 - subscript out of range".</p>