Multi Select ListBox, 4 columns, use NamedRange, Columns to use in list Nonconsecutive

I have Named Range: "List" - Lets say it has 10 Columns
On my user for, I want a Multi Select List that has 4 columns.
For the columns on the list, I would like Columns 2,5,8,7 from the Named Range

Private Sub UserForm_Initialize()
   Dim Rge As Range
   ListBox1.List = Range("List").Value
   Set Rge = Range("List")
   
   With Me.ListBox1
    Me.ListBox1.ColumnWidths = "15;30;60;15"
    
    ListBox1(, 1).Value = Rge(, 1).Value
    ListBox1(, 4) = Rge(, 1).Value
    ListBox1(, 7) = Rge(, 1).Value
    ListBox1(, 6) = Rge(, 3).Value
End With
End Sub