If Not IsArrow Then .List = 'What to syntax here to get full list of loaded ComboBox List when Form Initialized

[SamDsouza]

Hello
Can anyone help me to get the right syntax which is mentioned in RED bold below

Option Explicit
Public idx As Long
Private IsArrow As Boolean

Private Sub UserForm_Initialize()
 Load UserForm1
 UserForm1.Show vbModeless

 Dim rng As Range
   
   For Each rng In Sheet1.Range("B:B").SpecialCells(xlConstants).Areas
      With Me.ComboBox1
         .AddItem rng(1).Value
      End With
   Next rng
End Sub

Private Sub ComboBox1_Change()
  Dim i As Long
   With ComboBox1
   If Not IsArrow Then .List = [B][COLOR=#ff0000]'What to syntax here to get full list of loaded ComboBox List when Form Initialized[/COLOR][/B]
        If .ListIndex = -1 And Len(.Text) Then
            For i = .ListCount - 1 To 0 Step -1
                If InStr(1, .List(i), .Text, 1) = 0 Then .RemoveItem i
             Next i
            .DropDown
         End If
   End With

SamD

 

[Norie]

You can put the list from a combobox into an array like this.

Dim arrItems As Variant

    arrItems = ComboBox1.List

 

[SamDsouza]

Thankx Norie Got it