List box not displaying 1st or 2nd option

[Aland2929]

I have a user form with two list boxes. When I show the user form, I want to highlight the 2nd option on the ActivityList and the 3rd option on the MonthList. When the form is displayed, no options are selected for the ActivityList but the MonthList is correct?

Please Login or Register  to view this content.

Thanks in advance

[Norie]

Try putting the code in the UserForm's Initialize event.

Please Login or Register  to view this content.

[Aland2929]

Thanks for your reply. I am not sure I am putting that code in the right place because it is not working? If I right click the userform and select view code, this is what I have:

Thank You.

[Norie]

It's in the right place, but doesn't have the right name.

It should be Private Sub UserForm_Initialize, you don't replace UserForm with the name of the form.

[Aland2929]

I changed the code but still not working? I have attached a sample file.

Thank you.

[JosephP]

reverse the commands. also you have misspelled Initialize ;-)

Please Login or Register  to view this content.

[Norie]

Oops, spelling error - it should be Initialize.

Mind you the code will still not work because you've set the ControlSource for each combobox to a cell on the worksheet.

If you remove the ControlSources you can use code to put the selected values in the cells.

Please Login or Register  to view this content.

[Aland2929]

Thanks so much. Works perfectly and I learnt a lot!

[Aland2929]

On my user form, I have a few option buttons within a frame. I use [If Then] to allocate the selection to a cell range:

Please Login or Register  to view this content.

What code would I use for option buttons so the cell address changes as I change my selection on the user form?

Thank you.