$20 Multiselect Listbox With OptionButtons To Be Filled From Named Range

[Excel Fox]

Here's the revised file

Private Sub UserForm_Activate()

    Dim var As Variant
    Dim varArray As Variant
    Const cstrRanges As String = "StartTimes,EndTimes"
    With Worksheets("Sheet1")
        For Each var In Split(cstrRanges, ",")
            If IsArray(varArray) Then
                varArray = Split(Join(varArray, "|") & "|" & Join(Application.Transpose(.Range(CStr(var)).Value2), "|"), "|")
            Else
                varArray = Application.Transpose(.Range(CStr(var)).Value2)
            End If
        Next var
    End With
    Me.lstStartTimes.List = varArray
    
End Sub