Populate A Combo Box Using Headers Till Last Column

Originally Posted by SjonR

And what's the problem?

Works fine here:

Private Sub ComboBox1_DropButtonClick()
ComboBox1.Clear
Dim Cell As Range
For Each Cell In Range(Range("A1"), Range("A1").End(xlToRight))
ComboBox1.AddItem (Cell.Value)
Next Cell
End Sub

I just realized it is working!

I have been at it for hours and you made me realize that the workbook was corrupt after your validation.

Thank You for making me sane again