Data from Table to Listbox

[arnabmit]

Hi,

I am trying to get the content of a formatted table into an ActiveX list box lstPrev. I am getting error 438 "Object doesn't support this property or method".

What am I doing wrong?

Note: ShtName is a public variable

Dim dbSheet As Worksheet
Dim dbTable As ListObject

Set dbSheet = ThisWorkbook.Sheets("Form")
Set dbTable = ThisWorkbook.Sheets(ShtName).ListObjects(ShtName)

ActiveSheet.lstPrev.RowSource = dbTable.DataBodyRange.Address(External:=True)

 

[Fluff]

ActiveX listboxes do not have a rowsource property, try

ActiveSheet.lstPrev.List = dbTable.DataBodyRange.Value

 

[arnabmit]

ActiveX listboxes do not have a rowsource property, try

ActiveSheet.lstPrev.List = dbTable.DataBodyRange.Value

Thank you! Perils of being a noob.

I am guessing the following property is also not available? because I see the column header, but without any text

ActiveSheet.lstPrev.ColumnHeads = True

 

[Fluff]

If you want the header use ListFillRange instead

ActiveSheet.LstPrev.ListFillRange = dbTable.DataBodyRange.Address(, , , 1)

 

[arnabmit]

If you want the header use ListFillRange instead

ActiveSheet.LstPrev.ListFillRange = dbTable.DataBodyRange.Address(, , , 1)

Worked perfectly! Thank you so much!

 

[Fluff]

Glad to help & thanks for the feedback.