ComboBox selection not appearing at first click Excel VBA
<p>I am writing a script in Excel VBA where I am working in a <code>Userform</code>. In this <code>Userform</code>, I have two <code>ComboBox</code>, <code>ComboBox1</code> and <code>ComboBox4</code>. Both <code>ComboBox</code> are a drop-down list that is populated in the script.</p>

<p>I have made it so that <code>ComboBox4</code> gets populated  after and depending on the user input on <code>ComboBox1</code>. I have written the following code:</p>

<pre><code>Private Sub UserForm_Activate()

   With ComboBox1
        .AddItem "Afghanistan"
        .AddItem "Åland Islands"
        .AddItem "Albania"
        .AddItem "Algeria"
        .AddItem "American Samoa"
        .AddItem "Andorra"
   End With

   With ComboBox4
        .AddItem "Africa"
        .AddItem "Americas"
        .AddItem "Asia"
        .AddItem "Europe"
        .AddItem "MENA"
        .AddItem "Other"
   End With
End Sub

Private Sub ComboBox1_Change()

If ComboBox1 = "" Then
    ComboBox4 = vbNullString: ComboBox4.Enabled = True
Else
    Dim index As Integer
     index = ComboBox1.ListIndex

Select Case index
    Case Is = 0
        ComboBox4.Value = "Asia"
        ComboBox4.Enabled = False
    Case Is = 1
        ComboBox4.Value = "Europe"
        ComboBox4.Enabled = False
    Case Is = 2
        ComboBox4.Value = "Europe"
        ComboBox4.Enabled = False
    Case Is = 3
        ComboBox4.Value = "MENA"
        ComboBox4.Enabled = False
    Case Is = 4
        ComboBox4.Value = "Asia"
        ComboBox4.Enabled = False
    Case Is = 5
        ComboBox4.Value = "Europe"
        ComboBox4.Enabled = False
End Select

End If

End Sub
</code></pre>

<p>Everything seems to be working fine. The only thig is that <code>ComboBox1</code> has a strange and annoying behaviour: Whenever I open the <code>Userform</code> and select an option from the drop-down list of <code>ComboBox1</code> or start typing on it it doesn't select the option or type the letter unless I do it twice. So, if I select an option from the list, it remains blank until I select it again; if I start typing, the first letter I typed never appears, just those from the second on.</p>

<p>I don't understand what is going on and have researched on it, albeit unsuccessfully. Thank you for the help!</p>