title: Using RowSource Property to Fill ComboBox in Excel VBA
body: <p>I am trying to fill a ComboBox with selections equal to the first column of a data table, and keep getting </p>
  
  <blockquote>
    <p>Run-Time error 380</p>
  </blockquote>
  
  <p>I suppose I could use a loop and AddItem statements, but since I expect this to get large (several hundred entries), would prefer to stay away from loops that might slow down the execution.  Any thoughts on what I am doing wrong?</p>
  
  <pre><code>Private Sub ClientNameComboxAdd_Enter()
  Dim sht As Worksheet
  Dim LastRow As Long, UseRow As Long
  Dim NameFind As Range
  Set sht = ThisWorkbook.Worksheets("Client Info")
  LastRow = sht.ListObjects("Clients").Range.Rows.Count
  If LastRow = 2 And sht.ListObjects("Clients").DataBodyRange(1, 1) = "" Then
      MsgBox "Can't Add a New Plan With No Clients Entered"
      Exit Sub
  End If
  ClientNameComboxAdd.RowSource = sht.ListObjects("Clients").ListColumns(1).DataBodyRange
  End Sub
  </code></pre>
  
  <p>The problem is in the next-to-last line - ClientNameComboxAdd.RowSource ...  The first part, which comes into play before clients are added to the table, seems to work fine.</p>
  
  <p>Any thoughts would be appreciated.</p>