Disable some items from ComboBox ActiveX Controls

[drom]

Hi and Thanks in Advance

I have a ComboBox coming from the ActveX Controls on a Sheet.

This ComboBox's ListFillRange=A1:A15

But I would like to disable some of the items from this Combo so eg:

If A1=1, A2,2,A3=3 and so on, I would like my Combo to show only odd numbers.

Do I have to use ComboBox1.RowSource = "" and then Add by vba the desired items and/or is there any other way to say eg:

ComboBox1.item(2).disable=true

Thanks!

 

[MickG]

Try:-

[COLOR="Navy"]Sub[/COLOR] MG13Aug31
[COLOR="Navy"]Dim[/COLOR] Rng [COLOR="Navy"]As[/COLOR] Range, Dn [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Set[/COLOR] Rng = Range("A1:A15")
ComboBox1.Clear
[COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Dn [COLOR="Navy"]In[/COLOR] Rng
    [COLOR="Navy"]If[/COLOR] Not Dn Mod 2 = 0 [COLOR="Navy"]Then[/COLOR]
        ComboBox1.AddItem Dn
    [COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]Next[/COLOR] Dn
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick