Private Sub ComboBox1_Change()
Application.EnableEvents = False
ComboBox1 = UCase(ComboBox1)
x = InStr(1, ComboBox1, Chr(32))
If x > 0 Then ComboBox1 = UCase(Mid(ComboBox1, 1, x)) & Application.Proper(Mid(ComboBox1, x + 1, Len(ComboBox1)))
Application.EnableEvents = True
End Sub