Thursday, October 4, 2018

Horizontal Range Combobox

Sub CategoryComboBox()

Dim Names() As String, n As Integer, i As Integer
Dim colCount As Integer
Dim colDel As Integer

colCount = Worksheets("Database").UsedRange.Rows(1).Columns.Count

DeleteCategory.CategoriesBox.List = Application.Transpose(Worksheets("Database").Range(Cells(1, 1), Cells(1, colCount)).Value)

End Sub
at