VBA - Populate listbox in userform based on combo box selection

[Saber75]

Hi all, long time lurker, first time posting. I'm new to VBA, but I've been able to build a couple of user forms for my company's benefits team. My form populates data using xlookup and populating textboxes based on the combo box selection is working well. However, I am having an issue populating a listbox based on the same combo box change. I've been able to do it in excel using index/match, but the formula is much too long and I'm not sure how to begin to convert to VBA. I'm thinking I can use xLookup here, but am not sure how to return an array vs. a single cell reference? Any guidance would be greatly appreciated.

 

[Saber75]

Forgot to include my code, not sure how to edit the original post

Private Sub ComboBoxMonth_Change()
If ComboBoxMonth.Value = "January" Then
    Me.TextBoxToggleDaysApproved.Value = Application.WorksheetFunction.XLookup(CDbl(Me.TextBoxAssocID.Value), Sheets("Toggle_Data").Range("A:A"), _
    Sheets("Toggle_Data").Range("AH:AH"))
ElseIf ComboBoxMonth.Value = "February" Then
    Me.TextBoxToggleDaysApproved.Value = Application.WorksheetFunction.XLookup(CDbl(Me.TextBoxAssocID.Value), Sheets("Toggle_Data").Range("A:A"), _
    Sheets("Toggle_Data").Range("AI:AI"))
ElseIf ComboBoxMonth.Value = "March" Then
    Me.TextBoxToggleDaysApproved.Value = Application.WorksheetFunction.XLookup(CDbl(Me.TextBoxAssocID.Value), Sheets("Toggle_Data").Range("A:A"), _
    Sheets("Toggle_Data").Range("AJ:AJ"))
ElseIf ComboBoxMonth.Value = "April" Then
    Me.TextBoxToggleDaysApproved.Value = Application.WorksheetFunction.XLookup(CDbl(Me.TextBoxAssocID.Value), Sheets("Toggle_Data").Range("A:A"), _
    Sheets("Toggle_Data").Range("AK:AK"))
ElseIf ComboBoxMonth.Value = "May" Then
    Me.TextBoxToggleDaysApproved.Value = Application.WorksheetFunction.XLookup(CDbl(Me.TextBoxAssocID.Value), Sheets("Toggle_Data").Range("A:A"), _
    Sheets("Toggle_Data").Range("AL:AL"))
ElseIf ComboBoxMonth.Value = "June" Then
    Me.TextBoxToggleDaysApproved.Value = Application.WorksheetFunction.XLookup(CDbl(Me.TextBoxAssocID.Value), Sheets("Toggle_Data").Range("A:A"), _
    Sheets("Toggle_Data").Range("AM:AM"))
ElseIf ComboBoxMonth.Value = "July" Then
    Me.TextBoxToggleDaysApproved.Value = Application.WorksheetFunction.XLookup(CDbl(Me.TextBoxAssocID.Value), Sheets("Toggle_Data").Range("A:A"), _
    Sheets("Toggle_Data").Range("AN:AN"))
ElseIf ComboBoxMonth.Value = "August" Then
    Me.TextBoxToggleDaysApproved.Value = Application.WorksheetFunction.XLookup(CDbl(Me.TextBoxAssocID.Value), Sheets("Toggle_Data").Range("A:A"), _
    Sheets("Toggle_Data").Range("AO:AO"))
ElseIf ComboBoxMonth.Value = "September" Then
    Me.TextBoxToggleDaysApproved.Value = Application.WorksheetFunction.XLookup(CDbl(Me.TextBoxAssocID.Value), Sheets("Toggle_Data").Range("A:A"), _
    Sheets("Toggle_Data").Range("AP:AP"))
ElseIf ComboBoxMonth.Value = "October" Then
    Me.TextBoxToggleDaysApproved.Value = Application.WorksheetFunction.XLookup(CDbl(Me.TextBoxAssocID.Value), Sheets("Toggle_Data").Range("A:A"), _
    Sheets("Toggle_Data").Range("AQ:AQ"))
ElseIf ComboBoxMonth.Value = "November" Then
    Me.TextBoxToggleDaysApproved.Value = Application.WorksheetFunction.XLookup(CDbl(Me.TextBoxAssocID.Value), Sheets("Toggle_Data").Range("A:A"), _
    Sheets("Toggle_Data").Range("AR:AR"))
ElseIf ComboBoxMonth.Value = "December" Then
    Me.TextBoxToggleDaysApproved.Value = Application.WorksheetFunction.XLookup(CDbl(Me.TextBoxAssocID.Value), Sheets("Toggle_Data").Range("A:A"), _
    Sheets("Toggle_Data").Range("AS:AS"))
ElseIf ComboBoxMonth.Value = "Select Month" Then
    TextBoxToggleDaysApproved.Value = "0"
    Exit Sub
End If
End Sub