Run Time Error 380, Invalid Property Value - Excel VBA

[LukeP1]

Hi,

I am trying to create VBA code that sets the value of an active-x combobox based on the cell value in the current active row. I have pasted a screen grab below of the code and error message. I would be very grateful if somebody could tell me what I am doing wrong. Many Thanks

 

[Fluff]

If you have a combobox, why is your code referring to a listbox?

 

[Domenic]

If you in fact have a listbox, then it looks like the value in Range("bh" & (Activecell.Row)) cannot be found within the list of items in your listbox. Hence, the item cannot be selected in the listbox, resulting in the error.

 

[LukeP1]

Hi, thanks for the feedback. Yes, it is a list box, my reference to a Combobox was a typo. I am using a named range from column 'bh' to populate my list box options, so the value in Range("bh" & (Activecell.Row)) is one of the list box options so that cant be the error.

The code actually works sometimes and then also randomly gives the error message.

Any ideas ? thanks

 

[Fluff]

When it fails are you sure that you have not selected a cell or range that is outside the area of the named range.