Combobox Error When Using AddItem

[Ark68]

I have this code in my userform initialization code.

...
With cbx_res
        .AddItem "8k (7680x4320)"
        .AddItem "4k (3840x2160)"
        .AddItem "2k (2560x1440)"
        .AddItem "HD2 (1920x1080)"
        .AddItem "HD1 (1280x720)"
        .AddItem "SD3 (854x480)"
        .AddItem "SD2 (640x360)"
        .AddItem "SD1 (426x240)"
    End With
...

I am getting a "Method or data member not found" error with the line and red (and those that follow similarly). "cbx_res is the combobox control's name.
I'm using Excel v2411 packaged in Micosoft 365.

 

[6StringJazzer]

Is the combobox on a UserForm, or a worksheet? If it is on a worksheet, it is an ActiveX or Forms control? Did you double check the name?

If your combobox is a Forms control, that code won't work.

 

[Ark68]

Thanks Jeff,
It's a forms control wintin a userform. The control name is correct.

If your combobox is a Forms control, that code won't work.

What solution should I use to get what I need? It's likely an option to use rowsource and point it to a range in a worksheet, but I'm kinda hoping I don't need to dedicate a worksheet to a static list.

 

[NoSparks]

does it work if you do it this way ?

cbx_res.List = Array("8k (7680x4320)", "4k (3840x2160)", "2k (2560x1440)", "HD2 (1920x1080)", _
                     "HD1 (1280x720)", "SD3 (854x480)", "SD2 (640x360)", "SD1 (426x240)")

 

[Edgar_]

If it's a ComboBox inside a UserForm, it should work with just .AddItem. Does it look like this?

 

[6StringJazzer]

I set up a file with what you describe and it works for me. You must have an error in something that you are not showing us.

Code in UserForm module

Option Explicit

Private Sub UserForm_Initialize()

   MsgBox "init"
   
   With cbx_res
      .AddItem "8k (7680x4320)"
      .AddItem "4k (3840x2160)"
      .AddItem "2k (2560x1440)"
      .AddItem "HD2 (1920x1080)"
      .AddItem "HD1 (1280x720)"
      .AddItem "SD3 (854x480)"
      .AddItem "SD2 (640x360)"
      .AddItem "SD1 (426x240)"
   End With

End Sub


Private Sub CommandButtonClose_Click()
   Unload Me
End Sub

Code in standard module to open form

Sub runform()
   UserFormArk68.Show
   MsgBox "Exit"
End Sub

Run the code and click the combobox for a dropdown