Hi Borg,

Try:
'=============
Private Sub UserForm_Activate()
With Me.ListBox1
.RowSource = "A2:E25"
.ColumnHeads = True
.ColumnCount = 4
End With
End Sub
'<<=============


---
Regards,
Norman


"borg" wrote in message
...
Hi,

I used rowsource to set the data into a listbox and then set the
columnheads
to true hoping that the first row of the data would be fill into the
header.
But no such luck. Here is what I've tried:

with userform1
.listbox1.rowsource="A1:E25"
.columnheads=true
end with

Is there a way to make the column headers be the data in cells "A1:E1"?

Thanks.