Populate Combobox using column headers

What type of comboBox?

Private Sub UserForm_Initialize()
    Dim cr As Range
    Set cr = Worksheets("Sheet1").Range("A1", Range("IV1").End(xlToLeft))
    Me.ComboBox1.List = Application.WorksheetFunction.Transpose(cr)

End Sub

Try

Dim rHeaders As Range
Dim rcl As Range
Set rHeaders = Range(Cells(1, 1), Cells(1, Columns.Count).End(xlToLeft))
For Each rcl In rHeaders
Me.ComboBox1.AddItem rcl.Value
Next rcl

I didnt read the above clearly... (deleted comment)

What spaces? Is the list not continuous?

Normally to arrange alphabetically you would sort the list, but not with a horizontal range. You could possibly gather all the values into a Collection, but that would be more complicated

There should be no white spaces. Can you attach an example workbook?

Try

Option Explicit


Private Sub UserForm_Initialize()
Dim rHeaders As Range
Dim rcl As Range
Dim cColl As Collection
Dim vItm As Variant
Dim i As Long, j As Long
Dim vTemp As Variant
    
    Set cColl = New Collection
    'fill the collection
Set rHeaders = Range(Cells(1, 1), Cells(1, Columns.Count).End(xlToLeft))
For Each rcl In rHeaders
   cColl.Add rcl.Value, rcl.Value
   Next rcl
    'Two loops to bubble sort
   For i = 1 To cColl.Count - 1
        For j = i + 1 To cColl.Count
            If cColl(i) > cColl(j) Then
                'store the lesser item
               vTemp = cColl(j)
                'remove the lesser item
               cColl.Remove j
                're-add the lesser item before the
               'greater Item
               cColl.Add vTemp, vTemp, i
            End If
        Next j
    Next i
    
    'fill combo
   For Each vItm In cColl
      Me.ComboBox1.AddItem vItm
    Next vItm
End Sub

Hi again,

One more thing:

How would i combine your previous sorting code with this (older version) (in order to populate 4 comboboxes the same way):

for i =1 to 4
   Controls("ComboBox" & i).RowSource = worksheets("Data").range("Headers")
next i

im trying to do it but with no luck, i dont know where the beginning and the the end parts of of the code above should go within your code?

I just dont want to have to repeat that code 4 times for each individual comboboxe...



Thanks,
Jack

Try this

Option Explicit


Private Sub UserForm_Initialize()
Dim rHeaders As Range
Dim rcl As Range
Dim cColl As Collection
Dim vItm As Variant
Dim i As Long, j As Long
Dim vTemp As Variant
    
    Set cColl = New Collection
    'fill the collection
Set rHeaders = Range(Cells(1, 1), Cells(1, Columns.Count).End(xlToLeft))
For Each rcl In rHeaders
   cColl.Add rcl.Value, rcl.Value
   Next rcl
    'Two loops to bubble sort
   For i = 1 To cColl.Count - 1
        For j = i + 1 To cColl.Count
            If cColl(i) > cColl(j) Then
                'store the lesser item
               vTemp = cColl(j)
                'remove the lesser item
               cColl.Remove j
                're-add the lesser item before the
               'greater Item
               cColl.Add vTemp, vTemp, i
            End If
        Next j
    Next i
    
    'fill combo
    For i = 1 To 4
   For Each vItm In cColl
      Controls("ComboBox" & i).AddItem vItm
    Next vItm
Next i
End Sub