How to remove the first item in a combo box

[Pookiemeister]

Private Sub UserForm_Initialize()
    Me.Caption = "Maintenance Requster"
    'Me.cmbMaintPersonnel.List = Sheets("Maintenance Contact").Range("C2:C10001").Value
    
    Dim listLength As Integer
    Dim wks As Worksheet
    Dim cmbMaintList As Range
        
    Set wks = Worksheets("Maintenance Contact")
    listLength = Worksheets("Maintenance Contact").Cells(Rows.Count, "A").End(xlUp).Row '<==== finds the length of the list
    For x = 1 To listLength
        If wks.Cells(x, 1) <> "" Then '<=== ignores the blank spaces
            With cmbMaintPersonnel '<=== name of your comboBox
                .AddItem (wks.Cells(x, 3).Value) '<==== adds it to the list
            End With
        End If
    Next x
    
End Sub

 

[Pookiemeister]

I forgot to mention that row 1 is a header. So I would like to remove it from my combo box. Thank you.

 

[Fluff]

Use For x=2 rather than 1

 

[Fluff]

Or without a loop

Private Sub UserForm_Initialize()
    Me.Caption = "Maintenance Requster"
    'Me.cmbMaintPersonnel.List = Sheets("Maintenance Contact").Range("C2:C10001").Value
    
    Dim listLength As Integer
    Dim wks As Worksheet
        
    Set wks = Worksheets("Maintenance Contact")
    listLength = wks.Cells(Rows.Count, "A").End(xlUp).Row '<==== finds the length of the list
    With wks.Range("A2:A" & listLength)
      cmbMaintPersonnel.List = filter(wks.Evaluate("transpose(if(" & .Address & "<>""""," & .Offset(, 2).Address & ",""#@}""))"), "#@}", False)
   End With
End Sub

 

[Pookiemeister]

Not sure what happened, but now I am getting a Runtime error -2147024809 (80070057); Invalid Argument

 

[Fluff]

With which code & on which line?