I'm trying to populate a listbox with VBA.

I can't figure out a way to get column headings.

This is my code.

With UserForm1.ListBox1
.ColumnCount = 2
.RowSource = ""
.ColumnHeads = True
.Enabled = True
.ColumnWidths = "70 pt;100 pt"
End With


With UserForm1.ListBox1
.AddItem
.List(.ListCount - 1, 0) = "test1"
.List(.ListCount - 1, 1) = "test2"
.AddItem
.List(.ListCount - 1, 0) = "test1"
.List(.ListCount - 1, 1) = "test2"
' Etc, etc

End With


It loads the values but I can't get headings.

I want to do this in code, as the headings I want are "Date","Amount" but
they don't exist anywhere on my workbook at this point.

Thanks in advance,
Alan Sawyer

You can only use column headings if you use the rowsource property to fill
the listbox. Then you can put the column headings in the row just above the
rowsource range.

--
Regards,
Tom Ogilvy


wrote in message
...
I'm trying to populate a listbox with VBA.

I can't figure out a way to get column headings.

This is my code.

With UserForm1.ListBox1
.ColumnCount = 2
.RowSource = ""
.ColumnHeads = True
.Enabled = True
.ColumnWidths = "70 pt;100 pt"
End With


With UserForm1.ListBox1
.AddItem
.List(.ListCount - 1, 0) = "test1"
.List(.ListCount - 1, 1) = "test2"
.AddItem
.List(.ListCount - 1, 0) = "test1"
.List(.ListCount - 1, 1) = "test2"
' Etc, etc

End With


It loads the values but I can't get headings.

I want to do this in code, as the headings I want are "Date","Amount" but
they don't exist anywhere on my workbook at this point.

Thanks in advance,
Alan Sawyer