Combobox Invalid Property Value

[austin350s10]

I have a UserForm I am working on where the user is to make a selection from a dropdown style combo box. The problem I am having is I only want the user to be able to make a selection from the dropdown and not input there own value. I have set the property: Match Required to True.

Right now the user can input there own value but it returns the error MsgBox "Invalid Property Value". If the value there entered is not in the dropdown list.

Is there a way to intercept this error code and use my one error message or a way to block the user from adding there own values into the combo box?

Here is the only code I use to populate the combobox:

Private Sub UserForm_Initialize()
    Dim lMonth As Long
    For lMonth = 1 To 12
        Me.ComboBox1.AddItem Format(DateSerial(2000, lMonth, 1), "MMMM")
    Next lMonth
End Sub

 

[tweedle]

Possibly change the Style

Me.ComboBox1.Style = fmStyleDropDownList

 

[austin350s10]

perfect thanks! Should have seen that myself...lol

 

[mikerickson]

Rather than intercepting the error message, intercept the key entry.

Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    KeyAscii = 0
End Sub