Loop through names of buttons on a userform

in your Ind2 form replace the label and textbox with a listbox (LIstbox1) and change the code to

Private Sub CBNames_Change()
    Dim lRw As Long
    Dim iX As Long
    Dim wsMain As Worksheet
    Set wsMain = Sheets("Main")
    lRw = Me.CBNames.ListIndex + 2    '<-add 2 to allow for header row & ListIndex starts at zero
        For iX = 1 To wsMain.UsedRange.Columns.Count
            With Me.ListBox1
                .AddItem wsMain.Cells(1, iX).Value
                .List(.ListCount - 1, 1) = wsMain.Cells(lRw, iX).Value
            End With
        Next iX
End Sub