Assigning a list of 1 item to a combobox object

[ron2k]

Hi guys,

With my following code, how can I assign a list value of only one (1) item. If I put a range of only 1 cell I get errors:

Private Sub Workbook_Open()
  With ThisWorkbook.Sheets("Comparison Summ").ComboBox1
    Select Case Environ$("USERNAME")
    Case "bwagner", "mpelayo", "dbadalez", "erosa", "msoa"
      .List = Sheets("Comparison Detail").Range("A23:A25").Value
    Case "ron2k_1"
      .List = Sheets("Comparison Detail").Range("A21:A35").Value
    Case "myboss"
      .List = Sheets("Comparison Detail").Range("A35").Value
    End Select
  End With
  With ThisWorkbook.Sheets("Comparison Detail").ComboBox1
    Select Case Environ$("USERNAME")
    Case "bwagner", "mpelayo", "dbadalez", "erosa", "msoa"
      .List = Sheets("Comparison Detail").Range("A23:A25").Value
    Case "ron2k_1"
      .List = Sheets("Comparison Detail").Range("A21:A35").Value
    Case "myboss"
      .List = Sheets("Comparison Detail").Range("A35").Value
    End Select
  End With
End Sub

Thanks,

Ron

 

[John_w]

What are the errors?

Try:

.ListFillRange = Sheets("Comparison Detail").Range("A35").Address

This should work for single and multiple list items.