See previous threads (search for 'ColumnHeads'). Doing the whole thing
programatically as you do in your example seems bound to fail (no pun
intended).

If as you say the required rows are in a spreadsheet, use Rowsource.
e.g. if data is in Range A2:C11 of Sheet1 put Sheet1!A2:C11 in the rowsource
property. Whatever is in Range A1:C1 will appear as the column headers.
--
LMH


"Gr8lyConfused" wrote:


I'm having a problem getting column headings to show up in a list box
control. I thought that, if the ColumnHeads property was set to True, the
first row of data would show up as column headings in the list box. This
column heading row would not be a selectable row. Here's a simple example
that illustrates my problem:

TestForm.TestListBox.Visible = True
TestForm.TestListBox.Clear
Dim n as Integer
For n = 1 To 10
If n = 1 Then
TestForm.TestListBox.AddItem
TestForm.TestListBox.List(n - 1, 0) = "Col 1"
TestForm.TestListBox.List(n - 1, 1) = "Col 2"
TestForm.TestListBox.List(n - 1, 2) = "Col 3"
End If
TestForm.TestListBox.AddItem
TestForm.TestListBox.List(n, 0) = n
TestForm.TestListBox.List(n, 1) = n + 1
TestForm.TestListBox.List(n, 2) = n + 2
Next n
TestForm.Show

The above section of code populates the list box ok, however, the list box
column heading row remains blank. The intended column headings (Col 1, Col 2
and Col 3) show up as the first selectable row in the list box which is not
what I want to do.

Any help would be greatly appreciated.

p.s. The source data for the list box is contained in specific columns for
a subset of rows in an existing spreadsheet.