title: Selecting from 10 listboxes . Runtime Error "390"
body: <p>Below the code using for 10 listbox control 10 items. Users choose listboxes' items and stores to activesheet related row and column, run perfectly. Also in the userform there are Spindown_up and _down button.</p>
  <p>When the user down or up to the spindown buttons code get the related values from the given row and columns. Fort the first or second usage up or down to spindown without any problems. But after 2 or more usage spindown button errors occurs :</p>
  <blockquote>
  <p>Runtime Error &quot;390&quot;. Could not set the selected property. Invalid
  property value. UserForm Listbox Selected property problem.</p>
  </blockquote>
  <pre><code>
  Sub get_decad(rnum As Integer)
  
  Dim first_row, last_row As Integer
  first_row = 57
  last_row = 65
  
  If rnum &gt;=first_line  And rnum &lt;= last_row Then
  UserForm1.TextBox1 = ActiveSheet.Range(&quot;ca&quot; &amp; rnum)
  UserForm1.TextBox2 = ActiveSheet.Range(&quot;cc&quot; &amp; rnum)
  UserForm1.TextBox3 = ActiveSheet.Range(&quot;ce&quot; &amp; rnum)
  UserForm1.TextBox4 = ActiveSheet.Range(&quot;cg&quot; &amp; rnum)
  UserForm1.TextBox5 = ActiveSheet.Range(&quot;ci&quot; &amp; rnum)
  UserForm1.TextBox6 = ActiveSheet.Range(&quot;ck&quot; &amp; rnum)
  UserForm1.TextBox7 = ActiveSheet.Range(&quot;cm&quot; &amp; rnum)
  UserForm1.TextBox8 = ActiveSheet.Range(&quot;co&quot; &amp; rnum)
  UserForm1.TextBox9 = ActiveSheet.Range(&quot;cq&quot; &amp; rnum)
  UserForm1.TextBox10 = ActiveSheet.Range(&quot;cs&quot; &amp; rnum)
  
     For iCount = 1 To 10
         
          Me.ListBox1.Selected(iCount) = False
          Me.ListBox2.Selected(iCount) = False
          Me.ListBox3.Selected(iCount) = False
          Me.ListBox4.Selected(iCount) = False
          Me.ListBox5.Selected(iCount) = False
          Me.ListBox6.Selected(iCount) = False
          Me.ListBox7.Selected(iCount) = False
          Me.ListBox8.Selected(iCount) = False
          Me.ListBox9.Selected(iCount) = False
          Me.ListBox10.Selected(iCount) = False
      Next iCount
  
  UserForm1.ListBox10.Selected(ActiveSheet.Range(&quot;cs&quot; &amp; rnum)) = True
  UserForm1.ListBox9.Selected(ActiveSheet.Range(&quot;cq&quot; &amp; rnum)) = True
  UserForm1.ListBox8.Selected(ActiveSheet.Range(&quot;co&quot; &amp; rnum)) = True
  UserForm1.ListBox7.Selected(ActiveSheet.Range(&quot;cm&quot; &amp; rnum)) = True
  UserForm1.ListBox6.Selected(ActiveSheet.Range(&quot;ck&quot; &amp; rnum)) = True
  UserForm1.ListBox5.Selected(ActiveSheet.Range(&quot;ci&quot; &amp; rnum)) = True
  UserForm1.ListBox4.Selected(ActiveSheet.Range(&quot;cg&quot; &amp; rnum)) = True
  UserForm1.ListBox3.Selected(ActiveSheet.Range(&quot;ce&quot; &amp; rnum)) = True
  UserForm1.ListBox2.Selected(ActiveSheet.Range(&quot;cc&quot; &amp; rnum)) = True
  UserForm1.ListBox1.Selected(ActiveSheet.Range(&quot;ca&quot; &amp; rnum)) = True
  
  Else
  ' do nothing
  End If
  
  End Sub
  
  </code></pre>