Highlighting Known Values In A Combobox List

[Ark68]

I have a combobox (IFM_title.lbx_smodel) on my userform that las a list populated by assigning it the values of a named range.

IFM_title.lbx_smodel.List = Application.WorksheetFunction.Transpose(ThisWorkbook.names("modlist3").RefersToRange)

This large list contains names of animals in in.
On worksheet 3, I have a small list of animals occupying cells AB2 through AB4 (3 cells - Gorilla, Giraffe, Raccoon repectively. These 3 values exist in modlist3, and would be in the combobox's list.
How can I select (?) these three values in the combox list to highlight them?

 

[DanteAmor]

Hi @Ark68

How can I select (?) these three values in the combox list to highlight them?

I assume you are referring to a ListBox, since in a combobox you cannot select multiple items.

Try this:

Private Sub UserForm_Activate()
  Dim dic As Object
  Dim c As Range
  Dim i As Long
 
  Set dic = CreateObject("Scripting.Dictionary")
  For Each c In Sheets("Sheet3").Range("AB2:AB4")
    dic(c.Value) = Empty
  Next
 
  With IFM_title.lbx_smodel
    .List = Application.WorksheetFunction.Transpose(ThisWorkbook.Names("modlist3").RefersToRange)
    .MultiSelect = fmMultiSelectMulti
    For i = 0 To .ListCount - 1
      If dic.exists(.List(i)) Then
        .Selected(i) = True
      End If
    Next
  End With
End Sub