Значение по умолчанию для Excel VBA ComboBox

Я ищу способ, чтобы combobox на моей пользовательской форме имел значение по умолчанию ничто или что-то вроде «Выберите из ниже».

Попробовали различные предложения Google, но значение, которое отображается в моем поле со списком, пустое, если это первая итерация кода или, что еще хуже, ранее выбранное значение.

Код ниже …

' Begin Code Private Sub UserForm_Initialize() Dim RngTags As Range, RngNames As Range, i As Long ComboBox1.Value = "SomeText" 'Set rng1 = Sheets("Admin").Range("deptrange2") Set rng1 = Range("ALLDEPT") With ComboBox1 .ColumnCount = 1 .Style = fmStyleDropDownList .TextAlign = fmTextAlignLeft .BoundColumn = 1 For i = 1 To rng1.Count .AddItem rng1(i).Value .List(.ListCount - 1, 1) = rng1(i).Value Next i End With End Sub ' Puts the value chosen from the list on admin f6 Private Sub ComboBox1_Change() Sheets("Admin").Range("f8").Value = ComboBox1.Value Call myUnLoad End Sub ' Gets rid of userform Sub myUnLoad() UserForm1.Hide End Sub ' End code 

благодаря

Андрей

Давайте будем гением компьютера.