It's the same code you have now, but in a different event procedure...
Private Sub UserForm_Initialize()
ComboReasonforcall.AddItem "SELECT"
ComboReasonforcall.AddItem "General Query"
ComboReasonforcall.AddItem "Non Activation"
ComboReasonforcall.AddItem "Incorrect Handset Delivery"
ComboReasonforcall.AddItem "Incorrect Activation"
ComboReasonforcall.AddItem "Cancellation"
ComboReasonforcall.AddItem "MNP Forms"
ComboReasonforcall.AddItem "Change Details"
ComboReasonforcall.AddItem "Port Activations"
ComboReasonforcall.AddItem "MTN Exception"
End Sub
Rick
"Albert" <(E-Mail Removed)> wrote in message
news:3E194EAA-6A64-4A81-AFB0-(E-Mail Removed)...
> can you give me the code for this event?
>
> "Rick Rothstein (MVP - VB)" wrote:
>
>> The Change event of the ComboBox is not a very good place to put the code
>> that loads up the item for the first time. It's blank to begin with
>> because
>> no change has happened yet... type a letter in the text field of the
>> ComboBox and then drop down the list. I would think the UserForm's
>> Initialize event would be a better place for your code.
>>
>> Rick
>>
>>
>> "Albert" <(E-Mail Removed)> wrote in message
>> news
D21CA1E-0A60-42AB-A820-(E-Mail Removed)...
>> > Hi Guys,
>> >
>> > I am sure I am doing something wrong as my code works on other forms
>> > Private Sub ComboReasonforcall_Change()
>> > ComboReasonforcall.AddItem "SELECT"
>> > ComboReasonforcall.AddItem "General Query"
>> > ComboReasonforcall.AddItem "Non Activation"
>> > ComboReasonforcall.AddItem "Incorrect Handset Delivery"
>> > ComboReasonforcall.AddItem "Incorrect Activation"
>> > ComboReasonforcall.AddItem "Cancellation"
>> > ComboReasonforcall.AddItem "MNP Forms"
>> > ComboReasonforcall.AddItem "Change Details"
>> > ComboReasonforcall.AddItem "Port Activations"
>> > ComboReasonforcall.AddItem "MTN Exception"
>> > End Sub
>> >
>> > When I run the form the items don't appear in the combobox.
>> >
>> > Any help?
>> >
>> > Cheers
>> > Albert
>>
>>